test_that("get_routine() finds own 'run_testthat_tests'", {
routine <- get_routine("testthat", "run_testthat_tests")
expect_s3_class(routine, "NativeSymbolInfo")
})
test_that("get_routine() fails when no routine exists", {
expect_error(get_routine("utils", "no_such_routine"))
})
run_cpp_tests("testthat")
Generated by dwww version 1.15 on Sun May 19 04:49:06 CEST 2024.