Add extra tests

tests/testthat/test-Params.R

+context("Params")
+
+test_that("setParam sets correctly", {
+    params <- newSimpleParams()
+    params <- setParam(params, "nGenes", 100)
+    expect_equal(getParam(params, "nGenes"), 100)
+    params <- setParam(params, "mean.rate", 0.5)
+    expect_equal(getParam(params, "mean.rate"), 0.5)
+})
+
+test_that("getParam gets correctly", {
+    params <- newSimpleParams()
+    expect_equal(getParam(params, "nGenes"), 10000)
+    expect_equal(getParam(params, "mean.rate"), 0.3)
+})

tests/testthat/test-SplatParams.R

@@ -4,4 +4,23 @@ test_that("nGroups checks work", {
   params <- newSplatParams()
   expect_error(setParam(params, "nCells", 1),
                "nCells cannot be set directly, set groupCells instead")
+  expect_error(setParam(params, "nGroups", 1),
+               "nGroups cannot be set directly, set groupCells instead")
 })
+
+test_that("path.from checks work", {
+    params <- newSplatParams()
+    params <- setParams(params, groupCells = c(10, 10))
+    params <- setParamUnchecked(params, "path.from", c(0, 1))
+    expect_silent(validObject(params))
+    params <- setParamUnchecked(params, "path.from", c(0, 3))
+    expect_error(validObject(params),
+                 paste('invalid class "SplatParams" object: path.from:',
+                       "All elements must be <= 2"))
+    params <- setParamUnchecked(params, "path.from", c(1, 0))
+    expect_error(validObject(params), "path cannot begin at itself")
+    params <- newSplatParams()
+    params <- setParams(params, groupCells = c(10, 10, 10))
+    params <- setParamUnchecked(params, "path.from", c(2, 1, 1))
+    expect_error(validObject(params), "origin must be specified in path.from")
+})
\ No newline at end of file