tests/testthat/test-no-cassette-in-use.R

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

context("no_cassette_in_use")

# dir <- tempdir()
# invisible(vcr_configure(dir = dir))
#
# test_that("no cassette in use behaves as expected", {
#   crul::mock()
#   x <- crul::HttpClient$new(url = hb())
#
#   # when no cassette in use, we get expected vcr error
#   expect_error(
#     x$get("get"),
#     "There is currently no cassette in use"
#   )
# })
#
# # cleanup
# unlink(file.path(vcr_configuration()$dir, "turtle.yml"))
#
# # reset configuration
# vcr_configure_reset()