tests/testthat/test-archive.R

In r-lib/pkgcache: Cache 'CRAN'-Like Metadata and R Packages

test_that("API", {
  setup_fake_apps()
  withr::local_options(
    width = 1000
  )

  trfm <- function(x) fix_port_number(fix_mtime(x))

  expect_snapshot(
    cran_archive_list(),
    transform = trfm
  )

  expect_snapshot({
    cran_archive_update()
    cran_archive_list()
  }, transform = trfm)

  expect_snapshot({
    cran_archive_list(packages = "pkg1")
  }, transform = trfm)

  expect_error(cran_archive_summary(), NA)
  expect_error(suppressMessages(cran_archive_cleanup(force = TRUE)), NA)
  expect_equal(cran_archive_summary()$size, 0L)
})

test_that("cran_archive_cache", {
  setup_fake_apps()
  withr::local_options(
    width = 1000
  )

  trfm <- function(x) fix_port_number(fix_mtime(x))

  cac <- cran_archive_cache$new()
  expect_snapshot(
    cac$check_update(),
    transform = trfm
  )

  expect_silent(cac$summary())
  msg <- ""
  withCallingHandlers(
    cac$cleanup(force = TRUE),
    message = function(m) {
      msg <<- paste0(msg, conditionMessage(m))
      invokeRestart("muffleMessage")
    }
  )

  expect_match(msg, "Cleaning up archive cache in", fixed = TRUE)
})

test_that("check_update", {
  setup_fake_apps()
  withr::local_options(
    width = 1000
  )

  trfm <- function(x) fix_port_number(fix_mtime(x))

  cac <- cran_archive_cache$new()

  # Updates
  expect_error(cac$check_update(), NA)

  # Does not update
  expect_error(cac$check_update(), NA)
})