tests/testthat/test-SCDDParams.R

In Oshlack/splatter: Simple Simulation of Single-cell RNA Sequencing Data

context("SCDDParams")

if (requireNamespace("scDD", quietly = TRUE)) {
    params <- newSCDDParams()
}

test_that("constructor is valid", {
    skip_if_not_installed("scDD")
    expect_true(validObject(params))
})

test_that("printing works", {
    skip_if_not_installed("scDD")
    expect_output(show(params), "SCDDParams")
})

test_that("nGenes checks work", {
    skip_if_not_installed("scDD")
    expect_error(
        setParam(params, "nGenes", 1),
        paste(
            "nGenes cannot be set directly, set nDE, nDP, nDM, nDB,",
            "nEE or nEP instead"
        )
    )
    pp <- setParam(params, "nEE", 0)
    total <- getParam(pp, "nDE") + getParam(pp, "nDP") +
        getParam(pp, "nDM") + getParam(pp, "nDP") +
        getParam(pp, "nEE") + getParam(pp, "nEP")
    expect_equal(getParam(pp, "nGenes"), total)
})