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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
test_test <- function(...) {
suppressMessages(test(..., reporter = "silent"))
}
test_test_active_file <- function(...) {
suppressMessages(test_active_file(..., reporter = "silent"))
}
test_that("Package can be tested with testthat not on search path", {
pkg1 <- test_path("testTest")
pkg2 <- test_path("testTestWithDepends")
testthat_pos <- which(search() == "package:testthat")
if (length(testthat_pos) > 0) {
testthat_env <- detach(pos = testthat_pos)
on.exit(attach(testthat_env, testthat_pos), add = TRUE)
}
test_test(pkg1)
expect_true(TRUE)
test_test(pkg2)
expect_true(TRUE)
})
test_that("Filtering works with devtools::test", {
out <- test_test(test_path("testTest"), filter = "dummy")
expect_equal(length(out), 1)
})
test_that("devtools::test_active_file works", {
out <- test_test_active_file(test_path("testTest/tests/testthat/test-dummy.R"))
expect_equal(length(out), 1)
})
test_that("TESTTHAT_PKG environment variable is set", {
withr::local_envvar("TESTTHAT_PKG" = "incorrect")
test_test(
test_path("testTest"),
filter = "envvar",
stop_on_failure = TRUE
)
test_active_file(
test_path("testTest/tests/testthat/test-envvar.R"),
stop_on_failure = TRUE
)
expect_true(TRUE)
})
test_that("stop_on_failure defaults to FALSE", {
expect_error(
test_test(test_path("testTestWithFailure")),
NA
)
expect_error(
test_test(test_path("testTestWithFailure"), stop_on_failure = TRUE),
"Test failures"
)
})
|
