tests/testthat/test-15-assert.R

In jonclayden/reportr: A General Message and Error Reporting System

context("Assertions")

test_that("we can make assertions", {
    setOutputLevel(OL$Info)
    expect_null(assert(1 == 1, "Arithmetic failure"))
    expect_output(assert(NA == NA, "NAs don't test equal to themselves", level=OL$Info), "NAs don't test equal to themselves")
    # The case below produces an error
    expect_output(assert(3 + "n", "Numeric and character vectors can't be added", level=Info), "Numeric and character vectors can't be added")
})