tests/testthat/test-build.R

In r-lib/rcmdcheck: Run 'R CMD check' from 'R' and Capture Results

test_that("input targz and targz to check can be the same", {
  f1 <- tempfile()
  on.exit(unlink(f1), add = TRUE)
  cat("foobar\n", file = f1)
  res <- build_package(f1, tempdir())
  expect_equal(normalizePath(res), normalizePath(f1))
  expect_equal(readLines(res), "foobar")
})

test_that("different packages in the same dir are fine", {
  dir.create(tmp <- tempfile())
  on.exit(unlink(tmp, recursive = TRUE), add = TRUE)

  f1 <- tempfile(tmpdir = tmp)
  on.exit(unlink(f1), add = TRUE)
  cat("foobar\n", file = f1)

  f2 <- tempfile()
  on.exit(unlink(f2), add = TRUE)
  cat("baz\n", file = f2)

  res <- build_package(f2, tmp)
  expect_false(res == f2)
  expect_equal(readLines(res), "baz")
  expect_equal(readLines(f1), "foobar")
})

test_that("protection against ~ deletion", {
  local_mocked_bindings(dir = function(...) c("foo", "~", "bar"))
  expect_snapshot(error = TRUE, check_for_tilde_file(tempfile()))
})

test_that("inst/doc can be kept", {
  bad3 <- test_path("bad3")
  rubbish <- test_path("bad3", "inst", "doc", "rubbish")
  on.exit(unlink(test_path("bad3", "inst"), recursive = TRUE), add = TRUE)
  dir.create(dirname(rubbish), showWarnings = FALSE, recursive = TRUE)
  cat("DELETE ME!\n", file = rubbish)
  pkg <- build_package(bad3, tempfile(), character(), .libPaths(), TRUE)
  expect_true(file.exists(rubbish))
})

test_that("libpath argument is used in build_package", {
  lib <- tempfile()
  on.exit(unlink(lib, recursive = TRUE), add = TRUE)
  dir.create(lib)

  pkg1_source <- test_path("dependent_pkgs", "pkg1")
  pkg1 <- pkgbuild::build(pkg1_source, quiet = TRUE)
  on.exit(unlink(pkg1, recursive = TRUE), add = TRUE)
  install.packages(pkg1, lib = lib, repos = NULL, type = "source", quiet = TRUE)

  pkg2_source <- test_path("dependent_pkgs", "pkg2")
  expect_error({
    build_package(pkg2_source, tempfile(), character(), .libPaths(), TRUE)
  })
  pkg2 <- build_package(pkg2_source, tempfile(), character(), c(lib, .libPaths()), TRUE)
  expect_true(file.exists(pkg2))
})