From cd0fc682c95bbffca81bf6a2b3769d0e77c0e082 Mon Sep 17 00:00:00 2001 From: Indrajeet Patil Date: Tue, 20 Sep 2022 14:08:16 +0200 Subject: [PATCH] Add flags to skip code coverage for `zzz.R` --- R/zzz.R | 3 +++ tests/testthat/test-zzz.R | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/R/zzz.R b/R/zzz.R index d5843ed3b..d0fa0b8cb 100644 --- a/R/zzz.R +++ b/R/zzz.R @@ -1,3 +1,4 @@ +# nocov start .default_ignore_start <- "styler: off" .default_ignore_stop <- "styler: on" @@ -67,3 +68,5 @@ remove_cache_old_versions <- function() { unlink(dir, recursive = TRUE, force = TRUE) }) } + +# nocov end diff --git a/tests/testthat/test-zzz.R b/tests/testthat/test-zzz.R index c1afdd718..3b0b8da0c 100644 --- a/tests/testthat/test-zzz.R +++ b/tests/testthat/test-zzz.R @@ -2,7 +2,7 @@ test_that("styler tests did not use R.cache in user root", { skip_on_cran() skip_on_covr() expect_true( - length(list.files(R.cache::getCachePath("styler"), recursive = TRUE)) == 0 + length(list.files(R.cache::getCachePath("styler"), recursive = TRUE)) == 0L ) }) @@ -11,6 +11,6 @@ test_that("clear Cache", { skip_on_cran() skip_on_covr() expect_true( - length(list.dirs(R.cache::getCachePath("styler"))) == 1 + length(list.dirs(R.cache::getCachePath("styler"))) == 1L ) })