tests/testthat/test-BASiCS-simulate.R

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

context("BASiCS simulation")

test_that("BASiCS simulation output is valid", {
    skip_if_not_installed("BASiCS")
    sim <- expect_warning(
        BASiCSSimulate(),
        "gene.params will be sampled"
    )
    expect_true(validObject(sim))
})

test_that("BASiCS simulation works when spike.means is sampled", {
    skip_if_not_installed("BASiCS")
    params <- newBASiCSParams(spike.means = c(12.93, 30.19, 1010.72, 7.9))
    sim <- expect_warning(BASiCSSimulate(params), "spike.means will be sampled")
    expect_true(validObject(sim))
})