Bob Rudis
8 years ago
3 changed files with 17 additions and 10 deletions
@ -1,6 +1,11 @@ |
|||||
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")) |
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