tests/testthat/test-package.R

In k5: Kiernan Nicholls Miscellaneous

test_that("given packages can be saved", {
  tmp <- tempfile()
  a <- "test"
  save_my_packages(a, tmp)
  b <- readLines(tmp)
  expect_equal(a, b)
})

test_that("attached packages can be saved", {
  tmp <- tempfile()
  save_my_packages(NULL, tmp)
  expect_true(file.exists(tmp))
  b <- readLines(tmp)
  expect_gt(length(b), 1)
})

test_that("default packages can be loaded", {
  tmp <- tempfile()
  writeLines("k5", tmp)
  x <- load_my_packages(path = tmp)
  expect_length(x, 1)
})