context("System commands")
test_that("system_check", {
mockery::stub(system_check, "system2", structure("output", status = 1))
expect_error(
system_check("foobar", args = c("arg1", "arg2", quiet = TRUE)),
"Command foobar failed"
)
mockery::stub(system_check, "system2", 42)
expect_error(
system_check("foobar", args = c("arg1", "arg2", quiet = FALSE)),
"Command foobar failed"
)
})
Generated by dwww version 1.15 on Tue Jun 25 14:24:31 CEST 2024.