tests/testthat/test-function-get_names_of_used_packages.R

test_that("get_names_of_used_packages() works", {

  f <- kwb.code:::get_names_of_used_packages
  
  expect_error(f())

  capture.output(result <- f(root_dir = "./R"))
  
  expect_identical(result, character(0))
})
KWB-R/kwb.code documentation built on July 28, 2023, 5:57 p.m.