Bob Rudis
пре 8 година
3 измењених фајлова са 17 додато и 10 уклоњено
@ -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))) |
|||
|
|||
}) |
|||
|
Loading…
Reference in new issue