tests/testthat/test-engine-false.R

In steinbaugh/goalie: Assertive Check Functions

test_that("cause", {
    ok <- false("xxx")
    expect_s4_class(ok, "goalie")
    expect_false(ok)
    expect_identical(cause(ok), "xxx")
})

test_that("empty cause", {
    expect_error(false())
})