tests/testthat/test-check-scalar-isCharacter.R

In acidgenomics/goalie: Assertive Check Functions

test_that("TRUE", {
    expect_true(isCharacter("a"))
    expect_true(isCharacter(letters))
})

test_that("FALSE : numeric sequence", {
    ok <- isCharacter(seq_len(5L))
    expect_false(nocause(ok))
    expect_s4_class(ok, "goalie")
    expect_identical(
        object = cause(ok),
        expected = "{.var integer} is not character."
    )
})

## Note that `isCharacter()` is intentionally more strict than `is.character()`.
test_that("FALSE : empty", {
    expect_false(nocause(isCharacter(NULL)))
    expect_false(nocause(isCharacter(character())))
    expect_false(nocause(isCharacter("")))
    expect_false(nocause(isCharacter(NA_character_)))
})

test_that("nullOk", {
    expect_false(nocause(isCharacter(NULL, nullOk = FALSE)))
    expect_true(isCharacter(NULL, nullOk = TRUE))
})