tests/testthat/test-as_eml_list.R

In delma: Convert 'R Markdown' and 'Quarto' Documents to Ecological Metadata Language

test_that("`as_eml_list()` works for class `tbl_lp` imported from md", {
  x <- system.file("extdata", 
                   "bionet_metadata.Rmd",
                   package = "delma") |>
    read_lp() |>
    as_eml_list()
  inherits(x, "list") |>
    expect_true()
})

test_that("`as_eml_list()` works for class `tbl_df` imported from md", {
  x <- system.file("extdata", 
                   "bionet_metadata.Rmd",
                   package = "delma") |>
    read_md()
  result <- as_eml_list(x)
  inherits(result, "list") |>
    expect_true()
  # note: conversion to tibble reduces depth by one
  # it would appear that some xml have greater compression than this, hence 
  # use of `expect_gte()` not `expect_equal()`
  expect_gte(
    purrr::pluck_depth(result),
    max(x$level) + 1)
  expect_lte(
    length(unlist(result)),
    nrow(x))
})

test_that("`as_eml_list()` works for class `tbl_df` imported from xml", {
  x <- read_eml("testdata/meta_example.xml")
  result <- as_eml_list(x)
  inherits(result, "list") |>
    expect_true()
  expect_gte(
    purrr::pluck_depth(result),
    max(x$level) + 1)
  expect_lte(
    length(unlist(result)),
    nrow(x))
})

test_that("`as_eml_list()` works for class `list`", {
  x <- system.file("extdata", 
                   "bionet_metadata.Rmd",
                   package = "delma") |>
    read_md() |>
    as_eml_list()
  y <- as_eml_list(x)
  inherits(y, "list") |>
    expect_true()
  expect_equal(x, y)
})

test_that("`as_eml_list()` works for class `xml_document", {
  x <- system.file("extdata", 
                   "bionet_metadata.xml",
                   package = "delma") |>
    xml2::read_xml() |>
    as_eml_list()
  inherits(x, "list") |>
    expect_true()
})