Added tests for what we can't do

Author: LukasPietzschmann

tests/testthat/test-coverage.R

@@ -315,7 +315,7 @@ test_that("code that's called by eval or do.call is not in the slice", {
   ")
 
   cov <- file_coverage(file, test)
-  expect_equal(covr::percent_coverage(cov$coverage), 66.7, tolerance = 0.1)
+  expect_lt(covr::percent_coverage(cov$coverage), 100)
 
   file <- file_with_content("
     do_the_add <- function(a,b) a+b
@@ -330,7 +330,7 @@ test_that("code that's called by eval or do.call is not in the slice", {
   ")
 
   cov <- file_coverage(file, test)
-  expect_equal(covr::percent_coverage(cov$coverage), 66.7, tolerance = 0.1)
+  expect_lt(covr::percent_coverage(cov$coverage), 100)
 })
 
 test_that("flowr can't slice through objects", {