tests/testthat/test-createMetadata.R

test_that("create meta data", {
  out <- createMetadata()
  expect_equal(names(out), c("Title", "Author", "Keywords", "Subject"))
  expect_equal(nrow(out), 0)
})
beckerbenj/eatCodebook documentation built on Feb. 24, 2025, 9:36 a.m.