testing nocov for coverage

TGuillerme · Jan 12, 2024 · 67396d3 · 67396d3
1 parent b535851
commit 67396d3
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/tests/testthat/test-as.covar.R b/tests/testthat/test-as.covar.R
@@ -17,7 +17,9 @@ test_that("as.covar works in standalone", {
     var.mat <- function(matrix, ...) {var(matrix, ...)}
     metric <- as.covar(var.mat)
 
+    nocov <- FALSE
     if(!nocov) expect_true(check.covar(metric, covar_data)$is_covar)
+    nocov <- TRUE
     test <- get.dispRity.metric.handle(c(sum, metric), match_call, data = covar_data, tree = NULL)$levels 
     if(!nocov) expect_true(!is.null(test$level3.fun))
     expect_true(is.null(test$level2.fun))