tests/testthat/test-melt.R

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

test_that("SCE", {
    x <- melt(sce)
    expect_s4_class(x, "DFrame")
    expect_identical(
        object = colnames(x),
        expected = c(
            "rowname",
            "colname",
            "value",
            "sampleId",
            "sampleName",
            "interestingGroups"
        )
    )
})