tests/testthat/test-selectSamples.R

In acidgenomics/r-acidsinglecell: Acid Genomics Single Cell Experiment

test_that("SingleCellExperiment", {
    object <- selectSamples(sce, sampleId = "sample1")
    expect_identical(
        object = sampleNames(object),
        expected = c(sample1 = "sample1")
    )
    expect_identical(
        object = rownames(sampleData(object)),
        expected = "sample1"
    )
})