diff --git a/tests/testthat/test-client-lib.R b/tests/testthat/test-client-lib.R index 943cdc90..b9ef94e4 100644 --- a/tests/testthat/test-client-lib.R +++ b/tests/testthat/test-client-lib.R @@ -8,6 +8,7 @@ test_that("client lib is standalone", { funobjs <- mget(funs, lib) for (f in funobjs) expect_identical(environmentName(topenv(f)), "base") + skip_if_not_installed("codetools") expect_message( mapply(codetools::checkUsage, funobjs, funs, MoreArgs = list(report = message)), diff --git a/tests/testthat/test-standalone-errors.R b/tests/testthat/test-standalone-errors.R index eeec174b..fb78289f 100644 --- a/tests/testthat/test-standalone-errors.R +++ b/tests/testthat/test-standalone-errors.R @@ -6,6 +6,7 @@ test_that("throw() is standalone", { funobjs <- mget(funs, stenv) for (f in funobjs) expect_identical(environmentName(topenv(f)), "base") + skip_if_not_installed("codetools") expect_message( withCallingHandlers( res <- mapply(codetools::checkUsage, funobjs, funs,