test_that("stdout is captured", {
skip_on_cran()
out <- reprex(system2("echo", args = "blah"), std_out_err = TRUE)
expect_match(out, "Standard output and standard error", all = FALSE)
expect_match(out, "^blah$", all = FALSE)
})
test_that("stdout placeholder appears if nothing is captured", {
skip_on_cran()
out <- reprex(1:4, std_out_err = TRUE)
expect_match(out, "Standard output and standard error", all = FALSE)
expect_match(out, "nothing to show", all = FALSE)
})
test_that("stdout placeholder is absent if explicitly excluded", {
skip_on_cran()
out <- reprex(1:4, std_out_err = FALSE)
expect_false(any(grepl("standard output and standard error", out)))
})
Generated by dwww version 1.15 on Tue Jul 2 09:10:25 CEST 2024.