Newer
Older
test.params <- defaultParams()
test.params <- setParams(test.params, nGenes = 100, groupCells = c(5, 5),
lib.scale = 0)
test_that("splat output is valid", {
expect_true(validObject(splat(test.params, method = "single")))
expect_true(validObject(splat(test.params, method = "groups")))
expect_true(validObject(splat(test.params, method = "paths")))
})
expect_warning(splat(test.params, method = "groups", groupCells = c(10)),
expect_silent(splat(test.params, method = "paths", groupCells = c(10),
verbose = FALSE))