tests/testthat/test-engine-false.R

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

test_that("empty cause", {
    expect_error(false())
})
acidgenomics/goalie documentation built on June 10, 2025, 8:03 a.m.