Bob Rudis
8 anni fa
3 ha cambiato i file con 17 aggiunte e 10 eliminazioni
@ -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))) |
|||
|
|||
}) |
|||
|
Caricamento…
Reference in new issue