tests/testthat/test-resultsNames.R

In acidgenomics/r-deseqanalysis: Acid Genomics DESeq2 Analysis Utilities

test_that("DESeqAnalysis", {
    object <- objs[["deseq"]]
    expect_identical(
        object = resultsNames(object),
        expected = c(
            "condition_B_vs_A",
            "treatment_D_vs_C"
        )
    )
    resultsNames(object) <- c("XXX", "YYY")
    expect_identical(
        object = resultsNames(object),
        expected = c("XXX", "YYY")
    )
})