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
|
#' Does code print output to the console?
#'
#' Test for output produced by `print()` or `cat()`. This is best used for
#' very simple output; for more complex cases use [expect_snapshot()].
#'
#' @export
#' @family expectations
#' @inheritParams expect_that
#' @param regexp Regular expression to test against.
#' * A character vector giving a regular expression that must match the output.
#' * If `NULL`, the default, asserts that there should output,
#' but doesn't check for a specific value.
#' * If `NA`, asserts that there should be no output.
#' @inheritDotParams expect_match -object -regexp -info -label
#' @inheritParams capture_output
#' @return The first argument, invisibly.
#' @examples
#' str(mtcars)
#' expect_output(str(mtcars), "32 obs")
#' expect_output(str(mtcars), "11 variables")
#'
#' # You can use the arguments of grepl to control the matching
#' expect_output(str(mtcars), "11 VARIABLES", ignore.case = TRUE)
#' expect_output(str(mtcars), "$ mpg", fixed = TRUE)
expect_output <- function(object,
regexp = NULL,
...,
info = NULL,
label = NULL,
width = 80
) {
act <- quasi_capture(enquo(object), label, capture_output, width = width)
if (identical(regexp, NA)) {
expect(
identical(act$cap, ""),
sprintf("%s produced output.\n%s", act$lab, encodeString(act$cap)),
info = info
)
} else if (is.null(regexp) || identical(act$cap, "")) {
expect(
!identical(act$cap, ""),
sprintf("%s produced no output", act$lab),
info = info
)
} else {
expect_match(act$cap, enc2native(regexp), ..., info = info, label = act$lab)
}
invisible(act$val)
}
|
