tests/testthat/test-FgseaList.R

In acidgenomics/AcidGSEA: Acid Genomics GSEA

data(
    deseq,
    package = "DESeqAnalysis",
    envir = environment()
)

test_that("RankedList", {
    x <- FgseaList(
        object = deseq,
        geneSetFiles = c("h" = file.path(cacheDir, "h.all.v7.0.symbols.gmt"))
    )
    expect_s4_class(x, "FgseaList")
})