tests/testthat/test_a_read_checklist.R

In inbo/checklist: A Thorough and Strict Set of Checks for R Packages and Source Code

test_that("read_checklist works", {
  target <- tempfile("checklist")
  dir_create(target)
  defer(dir_delete(target))
  checklist$new(target, language = "en-GB", package = FALSE) |>
    write_checklist()
  suppressMessages(expect_is(x <- read_checklist(target), "checklist"))
  expect_identical(read_checklist(x), x)
  expect_identical(x$get_path, path_real(target))
  expect_identical(x$get_checked, "checklist")
  expect_is(x$.__enclos_env__$private$allowed_notes, "list")
  expect_is(x$.__enclos_env__$private$allowed_warnings, "list")
  expect_length(x$.__enclos_env__$private$allowed_notes, 0)
  expect_length(x$.__enclos_env__$private$allowed_warnings, 0)
  expect_identical(x$default, "en-GB")
})