1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
context("summary_functions")
test_that("Summary gives 50% coverage and two lines with zero coverage", {
cv <- package_coverage("TestSummary")
expect_equal(percent_coverage(cv), 50)
expect_equal(nrow(zero_coverage(cv)), 2)
})
test_that("percent_coverage", {
old <- getOption("keep.source")
options(keep.source = TRUE)
on.exit(options(keep.source = old), add = TRUE)
fun <- function() {
x <- 1
if (x > 2) {
print(x)
}
res <- lapply(1:2, function(x) {
x + 1
})
}
cov <- function_coverage("fun", env = environment(fun), fun())
res <- percent_coverage(cov)
expect_equal(res, 83.333333, tolerance = .01)
})
|
