Nothing
context("enumeration")
test_that("enumeration", {
skip_on_cran()
vcr::use_cassette("enumeration", {
a <- enumeration()
b <- enumeration("NameType")
c <- enumeration("MetadataType")
d <- enumeration("TypeStatus")
e <- enumeration_country()
}, preserve_exact_body_bytes = TRUE)
expect_is(a, "character")
expect_is(b, "character")
expect_is(c, "character")
expect_is(d, "character")
expect_is(e, "data.frame")
expect_is(e$enumName, "character")
})
test_that("fails correctly", {
skip_on_cran()
vcr::use_cassette("enumeration_fails_well", {
expect_error(enumeration("asdfadsf"))
})
expect_error(enumeration_country(list(timeout_ms = 1)),
"Timeout was reached")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.