tests/testthat/test-humanize.R

In acidgenomics/r-acidexperiment: Acid Genomics Summarized Experiment

test_that("SummarizedExperiment", {
    samples <- letters[seq_along(colnames(rse))]
    names(samples) <- colnames(rse)
    sampleNames(rse) <- samples
    x <- humanize(rse)
    expect_identical(
        object = lapply(dimnames(x), head),
        expected = list(
            c("TSPAN6", "TNMD", "DPM1", "SCYL3", "C1orf112", "FGR"),
            c("a", "b", "c", "d", "e", "f")
        )
    )
})