Nothing
testthat::context("Test OSI extractors")
testthat::test_that("licenses IDs can be retrieved", {
licenses <- license_list()
ids <- extract_id(licenses)
testthat::expect_true(is.vector(ids, mode = "character"))
testthat::expect_equal(length(ids), length(licenses))
})
testthat::test_that("licenses names can be retrieved", {
licenses <- license_list()
ids <- extract_name(licenses)
testthat::expect_true(is.vector(ids, mode = "character"))
testthat::expect_equal(length(ids), length(licenses))
})
testthat::test_that("licenses superseded states can be retrieved", {
licenses <- license_list()
ids <- extract_superseded(licenses)
testthat::expect_true(is.vector(ids, mode = "character"))
testthat::expect_equal(length(ids), length(licenses))
})
testthat::test_that("licenses keywords can be retrieved", {
licenses <- license_list()
ids <- extract_keywords(licenses)
testthat::expect_true(is.list(ids))
testthat::expect_equal(length(ids), length(licenses))
})
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.