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

In steinbaugh/goalie: Assertive Check Functions

test_that("TRUE", {
    expect_true(isOrganism("Homo sapiens"))
    expect_true(isOrganism("Mus musculus"))
    expect_true(isOrganism("Canis lupus familiaris"))
})

test_that("FALSE", {
    expect_false(isOrganism("Human"))
    expect_false(isOrganism("Homo Sapiens"))
    expect_false(isOrganism("homo_sapiens"))
})

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