tests/testthat/test_library_description.R

In shug0131/cctu: In-House Functions for Report Writing at Cambridge Clinical Trials Unit

test_that("library_description", {
  # dir <- tempdir()
  # withr::defer(fs::dir_delete(dir))
  # usethis::create_project(dir)
  # usethis::local_project(path = dir)
  local_create_project()
  expect_warning( cctu::library_description(),
                  "No DESCRIPTION file so no packages loaded"
                  )
  cctu::cctu_initialise(description = TRUE)
  expect_contains(cctu::library_description(),"tidyverse")
  expect_contains(search(),"package:eudract")
})