1context("Metadata")
2
3test_that("devtools metadata for load hooks", {
4
5  # testLoadHooks test package has .onLoad and .onAttach
6  load_all("testLoadHooks")
7  md <- dev_meta("testLoadHooks")
8  expect_true(md$.onLoad)
9  expect_true(md$.onAttach)
10  unload("testLoadHooks")
11
12
13  # testNamespace test package doesn't have .onLoad and .onAttach
14  load_all("testNamespace")
15  md <- dev_meta("testNamespace")
16  expect_false(exists("onLoad", envir = md))
17  expect_false(exists("onAttach", envir = md))
18  unload("testNamespace")
19})
20
21
22test_that("NULL metadata for non-devtools-loaded packages", {
23  expect_true(is.null(dev_meta("stats")))
24})
25
26
27test_that("dev_packages() lists devtools-loaded packages", {
28  expect_false(any(c("testNamespace", "testLoadHooks") %in% dev_packages()))
29  expect_false("testNamespace" %in% dev_packages())
30  expect_false("testLoadHooks" %in% dev_packages())
31
32  load_all("testNamespace")
33  expect_true("testNamespace" %in% dev_packages())
34  expect_false("testLoadHooks" %in% dev_packages())
35
36  load_all("testLoadHooks")
37  expect_true("testNamespace" %in% dev_packages())
38  expect_true("testLoadHooks" %in% dev_packages())
39
40  unload("testNamespace")
41  expect_false("testNamespace" %in% dev_packages())
42  expect_true("testLoadHooks" %in% dev_packages())
43
44  unload("testLoadHooks")
45  expect_false("testNamespace" %in% dev_packages())
46  expect_false("testLoadHooks" %in% dev_packages())
47
48
49  expect_false("stats" %in% dev_packages())
50})
51