Patch codecov holes

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: monty
 Title: Monte Carlo Models
-Version: 0.4.8
+Version: 0.4.9
 Authors@R: c(person("Rich", "FitzJohn", role = c("aut", "cre"),
                     email = "[email protected]"),
              person("Wes", "Hinsley", role = "aut"),

tests/testthat/test-model-wrappers.R

@@ -69,6 +69,15 @@ test_that("can directly sample from a model", {
                m$direct_sample(r2))
   expect_equal(monty_model_direct_sample(m, r1, named = TRUE),
                c(gamma = m$direct_sample(r2)))
+
+  m <- monty_example("banana")
+  r1 <- monty_rng_create(n_streams = 3, seed = 42)
+  r2 <- monty_rng_create(n_streams = 3, seed = 42)
+
+  expect_equal(monty_model_direct_sample(m, r1),
+               m$direct_sample(r2))
+  expect_equal(monty_model_direct_sample(m, r1, named = TRUE),
+               m$direct_sample(r2))
 })
 
 

tests/testthat/test-packer.R

@@ -213,6 +213,15 @@ test_that("can't used process with array unpacking", {
 })
 
 
+test_that("can't used fixed with array unpacking", {
+  p <- monty_packer(c("x", "y"), fixed = list(z = 3))
+  expect_equal(p$unpack(1:2), list(x = 1, y = 2, z = 3))
+  expect_error(
+    p$unpack(matrix(1:6, 2)),
+    "Can't unpack a matrix where the unpacker uses 'fixed'")
+})
+
+
 test_that("Properly unpack scalars stored as zero-length arrays", {
   p <- monty_packer(array = list(a = integer(0), b = 1L))
   expect_equal(p$unpack(1:2), list(a = 1, b = 2))