tests/testthat/test-eml_get.R

In EML: Read and Write Ecological Metadata Language Files

context("eml_get")

f <- system.file("tests",
  emld::eml_version(),
  "eml-datasetWithUnits.xml",
  package = "emld"
)


test_that("eml_get works on trivial calls", {
  eml <- read_eml(f)
  x <- eml_get(eml, "physical")
  expect_s3_class(x, "emld")
  y <- eml_get(eml, "attributeList")
  expect_length(y, 3)
  expect_s3_class(y, "emld")
})

test_that("eml_get works on more calls", {
  my_eml <- read_eml(f)
  y <- eml_get(my_eml, "attributeName")
  expect_s3_class(y, "emld")

  y <- eml_get(
    my_eml$dataset$dataTable$attributeList$attribute[[1]],
    "attributeName"
  )
})