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
|
test_that("C++ API works", {
skip_on_cran()
if (getRversion() < "4.0.0" && .Platform$OS.type == "windows") {
skip("Fails on older R")
}
Sys.setenv("R_TESTS" = "")
dir.create(lib <- tempfile())
on.exit(unlink(lib, recursive = TRUE), add = TRUE)
install.packages("progresstest_1.0.0.tar.gz", lib = lib, quiet = FALSE)
on.exit(unloadNamespace("progresstest"), add = TRUE)
withr::with_libpaths(lib, action = "prefix", {
withr::with_message_sink(
file.path(lib, basename(tempfile())),
expect_error(progresstest::my_test_progress(), NA)
)
})
withr::with_libpaths(lib, action = "prefix", {
withr::with_options(list(progress_enabled = FALSE),
expect_false(progresstest::my_is_option_enabled())
)
})
})
|
