No Description
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

test-clandnstine.R 730B

12345678910111213141516171819202122232425
  1. context("basic wrapper works")
  2. test_that("basic wrapper works", {
  3. expect_is(gdns_lib_version(), "character")
  4. r <- gdns_resolver()
  5. x <- gdns_get_address(r, "example.com")
  6. expect_true(all(c("2606:2800:220:1:248:1893:25c8:1946", "93.184.216.34") %in% x))
  7. r <- gdns_resolver(c("8.8.8.8", "1.1.1.1", "9.9.9.9"))
  8. x <- gdns_get_address(r, "example.com")
  9. expect_true(all(c("2606:2800:220:1:248:1893:25c8:1946", "93.184.216.34") %in% x))
  10. x <- gdns_get_address(r, "example.commm")
  11. expect_length(x, 0)
  12. x <- gdns_query(r, "example.com", "txt")
  13. expect_equal(x$answer_type, 800)
  14. expect_equal(x$canonical_name, "example.com.")
  15. expect_true(grepl("spf", unlist(x$replies_tree$answer[[1]]$rdata$txt_strings)))
  16. })