powered by
fail(message = "Failure has been forced")succeed(message = "Success has been forced")
succeed(message = "Success has been forced")
test_that("this test fails", fail()) test_that("this test succeeds", succeed())
Run the code above in your browser using DataLab