test updates

PredictiveEcology · Jun 8, 2024 · 9e51f29 · 9e51f29
1 parent d0458a6
commit 9e51f29
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/tests/testthat/test-module-deps-methods.R b/tests/testthat/test-module-deps-methods.R
@@ -127,8 +127,9 @@ test_that("depsEdgeList and depsGraph work", {
     } , add = TRUE)
   }
   times <- list(start = 0.0, end = 10)
+  npb <- "nPixelsBurned"
   params <- list(
-    .globals = list(burnStats = "npixelsburned", stackName = "landscape"),
+    .globals = list(burnStats = npb, stackName = "landscape"),
     randomLandscapes = list(.plotInitialTime = NA, .plotInterval = NA),
     caribouMovement = list(.plotInitialTime = NA, .plotInterval = NA),
     fireSpread = list(.plotInitialTime = NA, .plotInterval = NA)
@@ -147,7 +148,7 @@ test_that("depsEdgeList and depsGraph work", {
              "fireSpread", "fireSpread", "caribouMovement",
              "caribouMovement")
   el_objName <- c("landscape", "landscape", "landscape",
-                  "npixelsburned", "landscape",
+                  npb, "landscape",
                   "caribou")
   el_objClass <- c("SpatRaster", "SpatRaster",
                    "SpatRaster", "numeric", "SpatRaster",

diff --git a/tests/testthat/test-simList.R b/tests/testthat/test-simList.R
@@ -35,7 +35,7 @@ test_that("simList object initializes correctly (1)", {
   options(width = 100L)
   out <- utils::capture.output(show(mySim))
 
-  expect_equal(length(out), 81)
+  expect_equal(length(out), 82)
   options(width = w)
   rm(w)