library(testit)
assert('attr() is strict', {
z = structure(list(a = 1), foo = 2)
(attr(z, 'foo') %==% 2)
(attr(z, 'f') %==% NULL)
})
assert('in_dir() preserves the working directory', {
owd = getwd()
in_dir('.', setwd(tempdir()))
(same_path(owd, getwd()))
})
Generated by dwww version 1.15 on Thu May 23 17:22:46 CEST 2024.