tests/testthat/test-catalogr.R

In sada1993/catalogr: CatalogR, catalog your code for easy searching

#> author: [akash]
test_that("catalogr", {
  expect_equal(
    catalogr("testdir", write_yaml = FALSE),
    list(`testdir/example_catalogr.R` = list(list(
      label = "Author", value = "akash"
    ), list(
      label = "Description",
      value = "This is a test file"
    )), `testdir/example_load_data.R` = list(
      list(label = "authors", value = c("\"akash\"", "\"Sam\"")),
      list(label = "database", value = c("\"staging\"", "\"live\""))
    ))
  )
})