Bob Rudis
8 år sedan
3 ändrade filer med 17 tillägg och 10 borttagningar
@ -1,6 +1,11 @@ |
|||
context("basic functionality") |
|||
test_that("we can do something", { |
|||
|
|||
#expect_that(some_function(), is_a("data.frame")) |
|||
expect_that(length(gdns::query("example.com")), equals(8)) |
|||
|
|||
doms <- c("example.com", "example.org", "example.net") |
|||
qry <- gdns::bulk_query(doms) |
|||
|
|||
expect_that(dim(qry), equals(c(3, 4))) |
|||
|
|||
}) |
|||
|
Laddar…
Reference in new issue