1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#' Eject a cassette
#'
#' @export
#' @param cassette (character) a single cassette names to eject; see `name`
#' parameter definition in [insert_cassette()] for cassette name rules
#' @param options (list) a list of options to apply to the eject process
#' @param skip_no_unused_interactions_assertion (logical) If `TRUE`, this will
#' skip the "no unused HTTP interactions" assertion enabled by the
#' `allow_unused_http_interactions = FALSE` cassette option. This is intended
#' for use when your test has had an error, but your test framework has
#' already handled it - IGNORED FOR NOW
#' @return The ejected cassette if there was one
#' @seealso [use_cassette()], [insert_cassette()]
#' @examples
#' vcr_configure(dir = tempdir())
#' insert_cassette("hello")
#' (x <- current_cassette())
#'
#' # by default does current cassette
#' x <- eject_cassette()
#' x
#' # can also select by cassette name
#' # eject_cassette(cassette = "hello")
eject_cassette <- function(cassette = NULL, options = list(),
skip_no_unused_interactions_assertion = NULL) {
on.exit(webmockr::webmockr_disable_net_connect(), add=TRUE)
if (is.null(cassette)) {
# current cassette
cas <- current_cassette()
if (length(cas) == 0) stp("no cassette in use currently")
} else {
if (!cassette_exists(cassette)) stp("cassette '", cassette, "' not found")
cas <- cassettes(FALSE)[[cassette]]
if (is.null(cas)) stp("cassette '", cassette, "' not found")
}
# eject it
cas$eject()
}
|
