tests/testthat/test-sfa_set_cache_dir.R

In simfinapi: Accessing 'SimFin' Data

test_that("setting the cache directory to existing directory works", {
    expect_identical(sfa_set_cache_dir(tempdir()), tempdir())
    expect_identical(getOption("sfa_cache_dir"), tempdir())
})

test_that("setting the cache directory to new directory works", {
    new_dir <- tempfile("dir")

    expect_error(sfa_set_cache_dir(new_dir), paste0("'", new_dir, "' does not exist. Use 'create = TRUE' to create it on ",
        "the fly."), fixed = TRUE)
    expect_identical(sfa_set_cache_dir(new_dir, create = TRUE), new_dir)
    expect_identical(getOption("sfa_cache_dir"), new_dir)
})