tests/testthat/test-plotPcaCovariates.R

In hbc/bcbioRNASeq: Bcbio RNA-Seq

test_that("plotPcaCovariates", {
    x <- plotPcaCovariates(object)
    expect_type(x, "list")
    expected <- c(
        "plot",
        "corMatrix",
        "pcsMatrix",
        "scatterPlot",
        "significants"
    )
    expect_named(x, expected)
})