tests/testthat/test-cassette_class.R

In vcr: Record 'HTTP' Calls to Disk

test_that("has nice print method", {
  expect_snapshot(Cassette$new("test"))
})

test_that("cassette warns if ejected with no interactions", {
  skip_on_cran() # snapshots not run on CRAN so never ejected

  cl <- Cassette$new("test")
  cl$insert()
  expect_snapshot(. <- cl$eject())
})

test_that("cassette inherit options from vcr_configuration()", {
  local_vcr_configure(
    record = "none",
    match_requests_on = "body",
    serialize_with = "json",
    re_record_interval = 1,
    preserve_exact_body_bytes = TRUE
  )
  cas1 <- Cassette$new("test")
  expect_equal(cas1$record, "none")
  expect_equal(cas1$match_requests_on, "body")
  expect_equal(cas1$serialize_with, "json")
  expect_equal(cas1$re_record_interval, 1)
  expect_true(cas1$preserve_exact_body_bytes)

  # But can override as needed
  cas2 <- Cassette$new(
    "test",
    record = "new_episodes",
    match_requests_on = "query",
    preserve_exact_body_bytes = FALSE
  )
  expect_equal(cas2$record, "new_episodes")
  expect_equal(cas2$match_requests_on, "query")
  expect_false(cas2$preserve_exact_body_bytes)
})

test_that("important interactions are logged", {
  local_vcr_configure(dir = withr::local_tempdir())
  local_vcr_configure_log(file = stdout())

  expect_snapshot(
    {
      use_cassette("test", httr::GET(hb("/html")))
      use_cassette("test", httr::GET(hb("/html")))
      # Fails to capture ejecting message due to
      # https://github.com/r-lib/testthat/issues/2081
      use_cassette("test", httr::GET(hb("/404")))
    },
    error = TRUE,
    transform = \(x) gsub(hb(), "{httpbin}", x, fixed = TRUE),
  )
})

test_that("inserting and ejecting updates env vars", {
  local_vcr_configure(dir = withr::local_tempdir())

  cl <- Cassette$new("test", warn_on_empty = FALSE)
  expect_false(is_recording())

  cl$insert()
  expect_true(is_recording())

  cl$eject()
  expect_false(is_recording())
})