tests/testthat/test-selectSamples.R

In acidgenomics/r-acidexperiment: Acid Genomics Summarized Experiment

test_that("SummarizedExperiment", {
    object <- selectSamples(rse, condition = "A")
    expect_s4_class(object, class = "SummarizedExperiment")
    expect_identical(
        object = colnames(object),
        expected = paste0("sample0", seq_len(6L))
    )
})