您最多选择25个主题
主题必须以字母或数字开头，可以包含连字符 (-)，并且长度不得超过35个字符
25 行
730 B
25 行
730 B
context("basic wrapper works")
|
|
test_that("basic wrapper works", {
|
|
|
|
expect_is(gdns_lib_version(), "character")
|
|
|
|
r <- gdns_resolver()
|
|
|
|
x <- gdns_get_address(r, "example.com")
|
|
expect_true(all(c("2606:2800:220:1:248:1893:25c8:1946", "93.184.216.34") %in% x))
|
|
|
|
r <- gdns_resolver(c("8.8.8.8", "1.1.1.1", "9.9.9.9"))
|
|
|
|
x <- gdns_get_address(r, "example.com")
|
|
expect_true(all(c("2606:2800:220:1:248:1893:25c8:1946", "93.184.216.34") %in% x))
|
|
|
|
x <- gdns_get_address(r, "example.commm")
|
|
expect_length(x, 0)
|
|
|
|
x <- gdns_query(r, "example.com", "txt")
|
|
|
|
expect_equal(x$answer_type, 800)
|
|
expect_equal(x$canonical_name, "example.com.")
|
|
expect_true(grepl("spf", unlist(x$replies_tree$answer[[1]]$rdata$txt_strings)))
|
|
|
|
})
|
|
|