tests/testthat/test-engine-goalie.R

In acidgenomics/goalie: Assertive Check Functions

test_that("All TRUE", {
    expect_true(goalie(TRUE))
    expect_identical(
        object = goalie(rep(TRUE, 2L)),
        expected = rep(TRUE, 2L)
    )
})

test_that("Any FALSE", {
    object <- goalie(
        object = c(FALSE, FALSE),
        cause = c("AAA", "BBB")
    )
    expect_s4_class(object, "goalie")
    expect_identical(
        object = cause(object),
        expected = c("AAA", "BBB")
    )
})

test_that("Invalid input", {
    expect_error(
        object = goalie(logical()),
        regexp = "Invalid input."
    )
    expect_error(
        object = goalie(
            object = c(FALSE, TRUE, NA),
            cause = c("1" = "aaa", "2" = NA_character_, "3" = "ccc")
        ),
        regexp = "Object contains NA."
    )
})