tests/testthat/test-combine.R

In acidgenomics/pfgsea: Acid Genomics GSEA

test_that("FgseaList", {
    x <- fgsea
    y <- x
    expect_error(
        object = combine(x, y),
        regexp = "contrastNames"
    )
    contrastNames(x) <- paste0("x_", contrastNames(x))
    contrastNames(y) <- paste0("y_", contrastNames(y))
    c <- combine(x, y)
    expect_s4_class(c, "FgseaList")
})