tests/testthat/test-function-get_package_usage_per_script.R

In KWB-R/kwb.code: Analyse Your R Code!

test_that("get_package_usage_per_script() works", {

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

  root <- if ("tests" %in% dir()) "./tests/testthat/" else getwd()
  
  capture.output(suppressMessages(
    result <- f(root, packages = "kwb.utils")
  ))
  
  expect_s3_class(result, "data.frame")
  
  expect_true(all(c("package", "script", "name") %in% names(result)))
})