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

In acidgenomics/goalie: Assertive Check Functions

test_that("hasDimnames", {
    skip_if_not_installed("datasets")
    for (fun in list(
        hasDimnames,
        hasRownames,
        hasColnames
    )) {
        x <- datasets::mtcars
        expect_true(fun(x))
        x <- data.frame()
        ok <- fun(x)
        expect_false(nocause(ok))
        expect_s4_class(ok, "goalie")
    }
})