mirror of https://git.sr.ht/~hrbrmstr/splashr
boB Rudis
7 years ago
9 changed files with 29 additions and 11 deletions
@ -1,6 +1,20 @@ |
|||||
context("basic functionality") |
context("basic functionality") |
||||
test_that("we can do something", { |
test_that("we can do something", { |
||||
|
|
||||
#expect_that(some_function(), is_a("data.frame")) |
spact <- splash_active() |
||||
|
|
||||
|
expect_that(spact, equals(TRUE)) |
||||
|
|
||||
|
if (spact) { |
||||
|
|
||||
|
expect_that(length(splash_debug()), equals(7)) |
||||
|
expect_that(length(splash_version()), equals(9)) |
||||
|
expect_that(render_json(url = "https://httpbin.org/get"), is_a("splash_json")) |
||||
|
expect_that(render_png(url = "https://httpbin.org/get"), is_a("magick-image")) |
||||
|
expect_that(render_png(url = "https://httpbin.org/get"), is_a("magick-image")) |
||||
|
expect_that(render_html(url = "https://httpbin.org/get"), is_a("xml_document")) |
||||
|
expect_that(render_har(url = "https://httpbin.org/get"), is_a("har")) |
||||
|
|
||||
|
} |
||||
|
|
||||
}) |
}) |
||||
|
Loading…
Reference in new issue