tests/testthat/test-show.R

test_that("DESeqAnalysis", {
    object <- objs[["deseq"]]
    x <- capture.output(show(object))
    expect_match(x[[1L]], "DESeqAnalysis")
})
steinbaugh/DESeqAnalysis documentation built on Sept. 5, 2022, 3:55 p.m.