tests/testthat/test-corner.R

context("corner")

test_that("empty web", {
  tmp_dir <- tempfile()
  dir.create(tmp_dir)

  web <- rpkgweb(tmp_dir)
  expect_equal(length(web), 0)
  expect_match(format(web), "without any packages")

  test_make(web, dry_run = TRUE)
})
krlmlr/rpkgweb documentation built on May 20, 2019, 6:18 p.m.