test_that("show option works", {
expect_output(
r(function() print("hello"), show = TRUE),
"hello"
)
gc()
})
test_that("callbacks work", {
out <- NULL
r(function() cat("hello\n"), callback = function(x) out <<- x)
expect_equal(out, "hello")
gc()
})
test_that("show and callbacks at the same time", {
out <- NULL
expect_output(
r(
function() cat("hello\n"),
show = TRUE,
callback = function(x) out <<- x
),
"hello"
)
expect_equal(out, "hello")
gc()
})
Generated by dwww version 1.15 on Mon Jul 1 00:10:43 CEST 2024.