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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
context("logger")
vcr_configure(log = TRUE, log_opts = list(file = "vcr.log", log_prefix = "Cassette"))
context("logger: vcr_log_file fails well")
test_that("vcr_log_file fails well", {
# must pass a file name
expect_error(vcr_log_file(), "argument \"file\" is missing")
# file name type
expect_error(
vcr_log_file(5),
"file must be of class character"
)
# match_requests_on valid values
expect_error(
vcr_log_file("adsf", overwrite = 5),
"overwrite must be of class logical"
)
})
context("logger: vcr_log_file works")
test_that("vcr_log_file works as expected", {
expect_true(vcr_log_file("adsf"))
})
test_that("vcr_log_file: console", {
aa <- vcr_log_file("console")
expect_true(aa)
expect_is(vcr_log_env, "environment")
expect_equal(vcr_log_env$file, "console")
})
test_that("vcr_log_write: console", {
aa <- vcr_log_file("console")
expect_true(aa)
expect_output(vcr_log_write("stuff"), "stuff")
})
test_that("vcr_log_info: console", {
aa <- vcr_log_file("console")
expect_true(aa)
# with date time stamp
log_date <- capture.output(vcr_log_info("stuff"))
expect_match(log_date, "Cassette")
expect_match(log_date, "<none>")
expect_match(log_date, "stuff")
expect_match(log_date, as.character(format(Sys.Date(), "%Y")))
expect_match(log_date, "[0-9]{2}:[0-9]{2}:[0-9]{2}")
# w/o date time stamp
log_nodate <- capture.output(vcr_log_info("stuff", FALSE))
expect_match(log_nodate, "Cassette")
expect_match(log_nodate, "<none>")
expect_match(log_nodate, "stuff")
expect_false(grepl(as.character(format(Sys.Date(), "%Y")), log_nodate))
expect_false(grepl("[0-9]{2}:[0-9]{2}:[0-9]{2}", log_nodate))
})
# reset configuration
vcr_configure_reset()
# cleanup
unlink("adsf")
unlink("vcr.log")
|
