tests/testthat/test-cassette_options.R

In ropenscilabs/vcr: Record 'HTTP' Calls to Disk

test_that("Cassette options", {
  cl <- Cassette$new(name = "stuff", re_record_interval = 1000L,
    clean_outdated_http_interactions = TRUE)
  expect_is(cl, "R6")
  expect_is(cl, "Cassette")

  expect_is(cl$re_record_interval, "integer")
  expect_equal(cl$re_record_interval, 1000L)
  expect_is(cl$clean_outdated_http_interactions, "logical")
  expect_true(cl$clean_outdated_http_interactions)

  # eject cassette
  ## expect warning from empty cassette checker
  expect_warning(cl$eject())

  vcr_configure(warn_on_empty_cassette = FALSE)
  cl <- Cassette$new(name = "stuff2")
  ## expect NO warning when warn_on_empty_cassette=FALSE
  expect_warning(cl$eject(), NA)
})

# cleanup
unlink(file.path(vcr_configuration()$dir, "stuff.yml"))

vcr_configure_reset()