tests/testthat/test-show.R

test_that("FgseaList", {
    object <- fgsea
    output <- capture.output(show(object))
    expect_match(head(output, n = 1L), "FgseaList")
})
acidgenomics/AcidGSEA documentation built on Oct. 17, 2023, 9:41 p.m.