tests/testthat/test-as_eml_tbl.R

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

test_that("`as_eml_tibble()` works for class tbl_lp", {
  x <- system.file("extdata", 
                   "bionet_metadata.Rmd",
                   package = "delma") |>
    read_lp() |>
    as_eml_tibble()
  expect_true(inherits(x, c("tbl_df", "tbl", "data.frame")))
  expect_gte(nrow(x), 40)
})

# as_eml_tibble.list
test_that("`as_eml_tibble()` works for class list", {
  x <- system.file("extdata", 
              "bionet_metadata.xml",
              package = "delma") |>
    xml2::read_xml() |>
    as_eml_list()
  inherits(x, "list") |>
    expect_true()
  y <- as_eml_tibble(x)
  expect_true(inherits(y, c("tbl_df", "tbl", "data.frame")))
  expect_gte(nrow(y), 40) 
})

test_that("as_eml_tibble() works for xml documents", {
  x <- system.file("extdata", 
                   "bionet_metadata.xml",
                   package = "delma") |>
    xml2::read_xml() |>
    as_eml_tibble()
  expect_true(inherits(x, c("tbl_df", "tbl", "data.frame")))
  expect_gte(nrow(x), 40)
})