/usr/share/doc/r-cran-checkmate/tests/testthat/test_qtestr.r is in r-cran-checkmate 1.6.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | context("qtestr")
expect_succ = function(x, rules) {
expect_true(qtestr(x, rules),
info=sprintf("vector %s, rules: %s", deparse(substitute(x)), paste(rules, collapse=",")))
expect_true(qassertr(x, rules),
info=sprintf("vector %s, rules: %s", deparse(substitute(x)), paste(rules, collapse=",")))
}
expect_fail = function(x, rules) {
expect_false(qtestr(x, rules),
info=sprintf("vector %s, rules: %s", deparse(substitute(x)), paste(rules, collapse=",")))
expect_true(inherits(try(qassertr(x, rules), silent=TRUE), "try-error"),
info=sprintf("vector %s, rules: %s", deparse(substitute(x)), paste(rules, collapse=",")))
}
test_that("qtestr", {
x = list(a=1:10, b=rnorm(10))
expect_succ(x, "n+")
expect_succ(x, "n10")
expect_succ(x, "n>=1")
expect_fail(x, "i+")
expect_fail(x, "l")
x = list(a = NULL, b = 10)
expect_succ(x, "*")
expect_fail(x, "0")
expect_fail(x, "n")
x = list(a = NULL, b = NULL)
expect_succ(x, "0")
expect_fail(x, "0+")
x = list()
expect_succ(x, "n+")
expect_succ(x, "0+")
})
|