testthat::context("version")
test_that("we can get the namespace for different EML versions", {
expect_equal(eml_ns("eml-2.0.0"), "eml://eml.ecoinformatics.org/eml-2.0.0")
expect_equal(eml_ns("eml-2.1.1"), "eml://eml.ecoinformatics.org/eml-2.1.1")
expect_equal(eml_ns("eml-2.2.0"), "https://eml.ecoinformatics.org/eml-2.2.0")
expect_equal(eml_ns("eml-2.2.1"), "https://eml.ecoinformatics.org/eml-2.2.1")
})
test_that("we can set the EML version", {
expect_equal(eml_version("eml-2.1.1"), "eml-2.1.1")
expect_equal(eml_version("eml-2.2.0"), "eml-2.2.0")
expect_equal(eml_version("2.1.1"), "eml-2.1.1")
expect_equal(eml_version("2.2.0"), "eml-2.2.0")
})
test_that("we throw a warning when a user specifies an invalid version", {
expect_warning(eml_version("a"))
expect_warning(eml_version("eml2.1.1"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.