tests/testthat/test-matchSampleColumn.R

In acidgenomics/r-acidexperiment: Acid Genomics Summarized Experiment

test_that("matchSampleColumn", {
    expect_identical(
        object = matchSampleColumn(
            object = SummarizedExperiment(
                colData = DataFrame(
                    "sampleId" = "XXX",
                    "sampleID" = "XXX",
                    "sampleid" = "XXX",
                    "sample" = "XXX"
                )
            )
        ),
        expected = "sampleId"
    )
    expect_null(
        object = matchSampleColumn(
            object = DataFrame(
                "aaa" = "AAA",
                "bbb" = "BBB"
            )
        )
    )
})