tests/testthat/test-2-metadata-api.R

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

test_that("metadata api", {

  if (packageVersion("callr") < "3.1.0.9000") skip("Need newer callr")

  setup_fake_apps()

  tmp <- test_temp_dir()
  withr::local_envvar(c(R_PKG_CACHE_DIR = tmp))
  expect_equal(dir(tmp), character())

  fun <- function() {
    pkgcache::meta_cache_update()
    ret1 <- pkgcache::meta_cache_list()
    ret2 <- dir(Sys.getenv("R_PKG_CACHE_DIR"))
    ret3 <- pkgcache::meta_cache_list("pkg3")
    ret4 <- pkgcache::meta_cache_deps("pkg3")
    ret5 <- pkgcache::meta_cache_revdeps("pkg1", recursive = FALSE)
    ret6 <- pkgcache::meta_cache_cleanup(force = TRUE)
    ret7 <- pkgcache::get_cranlike_metadata_cache()
    ret8 <- pkgcache::meta_cache_summary()
    list(class(ret1), ret2, ret3, ret4, ret5, NULL, class(ret7), ret8)
  }

  ret <- callr::r(fun)
  expect_true("tbl" %in% ret[[1]])
  expect_true("R" %in% ret[[2]])
  expect_s3_class(ret[[3]], "tbl")
  expect_true("pkg3" %in% ret[[3]]$package)
  expect_true("pkg3" %in% ret[[4]]$package)
  expect_true("pkg1" %in% ret[[5]]$package)
  expect_true("cranlike_metadata_cache" %in% ret[[7]])
  expect_true("R6" %in% ret[[7]])

  expect_false("_metadata" %in% dir(tmp))
})