# NOT RUN {
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"))
expect_equal(out, "Hadley")
# }
Run the code above in your browser using DataLab