1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
context("Loading")
test_that("Package root and subdirectory is working directory when loading", {
expect_message(load_all("testLoadDir"), "[|].*/testLoadDir[|]")
expect_message(load_all(file.path("testLoadDir", "R")), "[|].*/testLoadDir[|]")
})
test_that("helpers are available after load_all", {
load_all("testLoadHelpers")
# object defined R/
expect_equal(baz, 1)
# object defined in a helper
expect_equal(foo, 1)
# object definde in helper, referencing lazy data object mtcars2
expect_equal(head_mtcars, head(mtcars2))
unload("testLoadHelpers")
})
|
