tests/testthat/test-ZINBParams.R

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

context("ZINBParams")

if (requireNamespace("zinbwave", quietly = TRUE)) {
    params <- newZINBParams()
}

test_that("constructor is valid", {
    skip_if_not_installed("zinbwave")
    expect_true(validObject(params))
    expect_equal(getParam(params, "nCells"), 50)
    expect_equal(getParam(params, "nGenes"), 100)
})

test_that("printing works", {
    skip_if_not_installed("zinbwave")
    expect_output(show(params), "ZINBParams")
})

test_that("nGenes checks work", {
    skip_if_not_installed("zinbwave")
    expect_error(
        setParam(params, "nGenes", 1),
        "nGenes cannot be set directly"
    )
    expect_error(
        setParam(params, "nCells", 1),
        "nCells cannot be set directly"
    )
})