1context('package') 2 3test_that("it can load from outside of package root", { 4 expect_false('testHooks' %in% loadedNamespaces()) 5 load_all(file.path("testHooks")) 6 7 expect_true('testHooks' %in% loadedNamespaces()) 8 expect_true(is_dev_package("testHooks")) 9 10 unload(file.path("testHooks")) 11 expect_false('testHooks' %in% loadedNamespaces()) 12}) 13