tests/testthat/test-parse-r-package.R

In MangoTheCat/functionMap: Draw the Function Map for a R Package

context("Parsing R packages")

test_that("package sources are evaluated in a single env", {

  map <- map_r_package("testEnv")

  expect_equal(
    get_graph(map),
    list(f = "f")
  )
})

test_that("package sources use Collate from DESCRIPTION", {

  map <- map_r_package("testCollate")

  expect_equal(
    get_graph(map),
    list(f = "f")
  )
})