tests/testthat/Testbox_attached_modules_functions/tests/testthat/test-attached_functions.R

In r-lib/covr: Test Coverage for Packages

box::use(
  testthat[test_that, expect_equal]
)

box::use(
  app/modules/module[a]
)

test_that("attached regular function `a` works as expected", {
  expect_equal(a(1), 1)
  expect_equal(a(2), 2)
  expect_equal(a(3), 2)
  expect_equal(a(4), 2)
  expect_equal(a(0), 1)
})