1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
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 = "https://httpbin.org")
#
# # 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()
|
