tests/testthat/test-get_local_functions.R

In origin: Explicitly Qualifying Namespaces by Automatically Adding 'pkg::' to Functions

testthat::test_that("get local functions", {

  dir <- tempfile()
  dir.create(dir)
  writeLines(c("myfun <- function(x) 3",
               "myfun2 =function () 1234",
               "myfun3 <- ",
               "function",
               "(x) 3"), con = file.path(dir, "findfuns.R"))
  result <- get_local_functions(dir)

  testthat::expect_true(all(c("myfun", "myfun2", "myfun3") %in% result))

})


testthat::test_that("get local functions error handler", {

  testthat::expect_equal(get_local_functions(stop()),
                         character())

})