1context("Load: collate")
2
3test_that("If collate absent, load in alphabetical order", {
4  load_all("testCollateAbsent")
5
6  expect_equal(a, 3)
7
8  unload("testCollateAbsent")
9})
10
11test_that("Warned about files missing from collate, but they're still loaded", {
12  expect_message(load_all("testCollateMissing"), "a.r")
13
14  expect_equal(a, 1)
15  expect_equal(b, 2)
16
17  unload("testCollateMissing")
18})
19
20test_that("Extra files in collate don't error, but warn", {
21  expect_message(load_all("testCollateExtra"), "b.r")
22
23  expect_equal(a, 1)
24
25  unload("testCollateExtra")
26})
27