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

In acidgenomics/goalie: Assertive Check Functions

test_that("hasRownames", {
    skip_if_not_installed("S4Vectors")
    skip_if_not_installed("data.table")
    skip_if_not_installed("tibble")
    invisible(Map(
        f = function(fun, cause) {
            data <- fun()
            ok <- hasRownames(data)
            expect_false(ok)
            expect_s4_class(ok, "goalie")
            expect_identical(cause(ok), cause)
        },
        fun = list(
            data.frame,
            S4Vectors::DataFrame,
            data.table::data.table,
            tibble::tibble
        ),
        cause = c(
            "{.var data.frame} has integer row names (soft {.val NULL}).",
            "{.var DFrame} has {.val NULL} row names.",
            "{.cls data.table} class doesn't support row names.",
            "{.cls tbl_df} class doesn't support row names."
        )
    ))
})

test_that("TRUE", {
    x <- data.frame(
        "sample1" = c(1L, 2L),
        "sample2" = c(3L, 4L),
        row.names = c("gene1", "gene2")
    )
    expect_true(hasRownames(x))
})

test_that("FALSE : data.frame sequence row names", {
    x <- data.frame(a = seq_len(2L))
    ok <- hasRownames(x)
    expect_false(ok)
    expect_s4_class(ok, "goalie")
    expect_identical(
        object = cause(ok),
        expected = "{.var data.frame} has integer row names (soft {.val NULL})."
    )
})

test_that("FALSE : DataFrame NULL", {
    skip_if_not_installed("S4Vectors")
    x <- S4Vectors::DataFrame("a" = seq_len(2L))
    ok <- hasRownames(x)
    expect_false(ok)
    expect_s4_class(ok, "goalie")
    expect_identical(
        object = cause(ok),
        expected = "{.var DFrame} has {.val NULL} row names."
    )
})