Use this to test whether a function returns a visible or invisible output. Typically you'll use this to check that functions called primarily for their side-effects return their data argument invisibly.
Examples
expect_invisible(x <- 10)
expect_visible(x)
# Typically you'll assign the result of the expectation so you can
# also check that the value is as you expect.
greet <- function(name) {
message("Hi ", name)
invisible(name)
}
out <- expect_invisible(greet("Hadley"))
#> Hi Hadley
expect_equal(out, "Hadley")