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
60
61
62
63
64
65
66
67
68
69
70
|
library(testthat)
local({
if (!requireNamespace("usethis", quietly = TRUE)) {
return()
}
quietly <- function(expr) {
suppressMessages(capture_output(result <- expr))
result
}
perform_test <- function(pkgName, catchEnabled) {
owd <- setwd(tempdir())
withr::defer(setwd(owd))
pkgPath <- file.path(tempdir(), pkgName)
libPath <- file.path(tempdir(), "rlib")
if (!utils::file_test("-d", libPath)) {
dir.create(libPath)
}
.libPaths(c(libPath, .libPaths()))
withr::defer({
unlink(pkgPath, recursive = TRUE)
unlink(libPath, recursive = TRUE)
})
quietly(usethis::create_package(pkgPath, open = FALSE))
quietly(testthat::use_catch(pkgPath))
cat(
"LinkingTo: testthat",
file = file.path(pkgPath, "DESCRIPTION"),
append = TRUE,
sep = "\n"
)
cat(
sprintf("useDynLib(%s, .registration=TRUE)", pkgName),
file = file.path(pkgPath, "NAMESPACE"),
append = TRUE,
sep = "\n"
)
if (!catchEnabled) {
isWindows <- Sys.info()[["sysname"]] == "Windows"
makevarsPath <- file.path(
pkgPath,
"src",
if (isWindows) "Makevars.win" else "Makevars"
)
cat(
"PKG_CPPFLAGS = -DTESTTHAT_DISABLED",
file = makevarsPath,
sep = "\n"
)
}
install.packages(pkgs = pkgPath, repos = NULL, type = "source")
library(pkgName, character.only = TRUE)
stopifnot(.Call("run_testthat_tests", FALSE, PACKAGE = pkgName))
pkgload::unload(pkgName)
}
withr::local_envvar(R_TESTS = '')
perform_test("testthatclient1", TRUE)
perform_test("testthatclient2", FALSE)
})
|
