tests/testthat/test-combine.R

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)
    )
})
steinbaugh/DESeqAnalysis documentation built on Oct. 13, 2023, 5:39 a.m.