tests/testthat/test-combine.R

In steinbaugh/DESeqAnalysis: Acid Genomics DESeq2 Analysis Utilities

test_that("DESeqAnalysis", {
    x <- objs[["deseq"]]
    y <- x
    namesX <- paste0("x_", resultsNames(x))
    namesY <- paste0("y_", resultsNames(y))
    resultsNames(x) <- namesX
    resultsNames(y) <- namesY
    object <- combine(x, y)
    expect_s4_class(object, "DESeqAnalysis")
    expect_identical(
        object = resultsNames(object),
        expected = c(namesX, namesY)
    )
})