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

In steinbaugh/goalie: Assertive Check Functions

test_that("TRUE", {
    expect_true(isNumber(0)) # nolint
    expect_true(isNumber(1L))
    expect_true(isNumber(1.1))
})

test_that("FALSE", {
    expect_false(nocause(isNumber(seq_len(2L))))
})

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