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