test_that("file_cache with cache=NULL", {

  # Skip this test on CRAN since it involves editing the local file system.
  skip_on_cran()

  expected_default_cache_dir <- fs::path_abs(here::here("cache"))

  # If the default directory already exists, skip this test to leave the
  # directory untouched.
  skip_if(fs::dir_exists(expected_default_cache_dir))

  # Ensure the directory is deleted at the end.
  withr::defer(
    unlink(expected_default_cache_dir, recursive=TRUE),
    teardown_env()
  )

  .cache <- file_cache()
  expect_equal(
    fs::path_abs(.cache$info()$dir),
    expected_default_cache_dir
  )

  # Ensure the directory was created
  expect_true(fs::dir_exists(expected_default_cache_dir))
})

test_that("file_cache with type=NULL", {
  tf <- withr::local_tempfile()
  dir.create(tf)
  cache <- file_cache(tf)

  expect_true(inherits(cache, "cache_disk"))

  cache$set("test", 3)
  expect_true(fs::is_file(fs::path(tf, "test.cache_rds")))
})

test_that("file_cache with type=rds", {
  tf <- withr::local_tempfile()
  dir.create(tf)
  cache <- file_cache(tf, type = "rds")

  expect_true(inherits(cache, "cache_disk"))

  cache$set("test", 3)
  expect_true(fs::is_file(fs::path(tf, "test.cache_rds")))
})

test_that("file_cache with type=parquet", {
  skip_if_not_installed("arrow")

  tf <- withr::local_tempfile()
  dir.create(tf)
  cache <- file_cache(tf, type = "parquet")

  expect_true(inherits(cache, "cache_disk"))

  cache$set("test", data.frame(x = 1:3))
  expect_true(fs::is_file(fs::path(tf, "test.cache_parquet")))
})

test_that("file_cache with type=csv, ext_prefix=NULL", {
  tf <- withr::local_tempfile()
  dir.create(tf)
  cache <- file_cache(tf, type = "csv", ext_prefix = "")

  expect_true(inherits(cache, "cache_disk"))

  cache$set("test", data.frame(x = 1:3))
  expect_true(fs::is_file(fs::path(tf, "test.csv")))
})

test_that("file_cache passes existing cache object", {
  cd <- cachem::cache_disk()
  expect_identical(file_cache(cd), cd)

  cm <- cachem::cache_mem()
  expect_identical(file_cache(cm), cm)
})