Test that splat output is a valid SCESet

DESCRIPTION

 Package: splatter
 Type: Package
 Title: Simple Simulation of Single-cell RNA Sequencing Data
-Version: 0.3.22
+Version: 0.3.23
 Date: 2016-10-12
 Author: Luke Zappia
 Authors@R: as.person(c(

tests/testthat/test-simulate.R

 context("splatter simulations")
 
+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")))
+})
+
 test_that("one group switches to single mode", {
-  expect_warning(splat(method = "groups"),
+  expect_warning(splat(test.params, method = "groups", groupCells = c(10)),
                  "nGroups is 1, switching to single mode")
-  expect_silent(splat(method = "paths", verbose = FALSE))
+  expect_silent(splat(test.params, method = "paths", groupCells = c(10),
+                      verbose = FALSE))
 })