library(testit)
# no need to use testit:::available_dir()
assert(
'available_dir() should find an existing directory',
file.exists(
available_dir(c('foobar', 'whatever', '~', system.file('man', package = 'testit')))
),
has_error(available_dir('asdfasdf'))
)
exprs = parse(text = 'if (TRUE) {T&F}\n1+1')
assert(
'deparse_key() fetches the n-1 element if code is in {}',
deparse_key(exprs[[1]]) == 'if (TRUE) { .... T & F'
)
assert(
'deparse_key() returns the parsed code if length == 1',
deparse_key(exprs[[2]]) == '1 + 1'
)
assert('insert_identical() should not work in a non-interactive R session', {
if (!interactive()) has_error(insert_identical())
})
assert('sys.source2() works on empty files', {
f = tempfile()
writeLines(' ', f)
(sys.source2(f, environment()) %==% NULL)
})
Generated by dwww version 1.15 on Wed May 22 21:32:31 CEST 2024.