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"))
})