tests/testthat/test_OutriderDataSet.R

In gagneurlab/OUTRIDER: OUTRIDER - OUTlier in RNA-Seq fInDER

context("Testing OutriderDataSet-class")

test_that("create test data set", {
    ods <- makeExampleOutriderDataSet(20,20)
    expect_is(ods, "OutriderDataSet")
    expect_equal(dim(ods), c(20,20))
    expect_equal(dim(assay(ods, 'trueOutliers')), c(20,20))
})

test_that("constructur for OutriderDataSet", {
    se <- as(DESeq2::makeExampleDESeqDataSet(), "SummarizedExperiment")
    rownames(se) <- paste0("gene", seq_row(se))
    colData(se)[["sampleID"]] <- colnames(se)
    expect_is(OutriderDataSet(se=se), "OutriderDataSet")
    expect_is(OutriderDataSet(countData=assay(se, 'counts')),
            "OutriderDataSet")
    expect_is(OutriderDataSet(countData=assay(se, 'counts'), 
            colData=colData(se)), "OutriderDataSet")
    
    ods <- makeExampleOutriderDataSet(dataset="GTExSkinSmall")
    expect_is(ods, "OutriderDataSet")
    expect_null(show(ods))
    expect_true(validObject(ods))
    
})