tests/testthat/test-load-cache.R

In nealrichardson/httpcache: Query Cache for HTTP Clients

public({
  clearCache()
  test_that("Cache gets set on GET", {
    expect_length(cacheKeys(), 0)
    with_fake_http({
      a <<- GET("https://app.crunch.io/api/datasets")
      b <<- GET("https://app.crunch.io/api/", query = list(user = "me"))
    })
    expect_length(cacheKeys(), 2)
    expect_true(hitCache("https://app.crunch.io/api/datasets"))
    expect_identical(a$url, "https://app.crunch.io/api/datasets")
    expect_identical(a, getCache("https://app.crunch.io/api/datasets"))
  })

  without_internet({
    test_that("When the cache is set, can read from it even with no connection", {
      expect_no_request(
        expect_identical(GET("https://app.crunch.io/api/datasets"), a)
      )
    })

    f <- tempfile()
    saveCache(f)
    clearCache()
    test_that("Cache is now empty", {
      expect_length(cacheKeys(), 0)
      expect_GET(
        GET("https://app.crunch.io/api/datasets"),
        "https://app.crunch.io/api/datasets"
      )
    })

    test_that("Can load cache and read from it as before", {
      loadCache(f)
      # Now read from cache
      expect_no_request(
        expect_identical(GET("https://app.crunch.io/api/datasets"), a)
      )
    })
  })

  test_that("loadCache error handling", {
    f2 <- tempfile()
    a <- 1
    saveRDS(a, file = f2)
    expect_error(
      loadCache(f2),
      "'loadCache' requires an .rds file containing an environment"
    )
  })
})