Add a test for all years appearing in output

JGCRI · Apr 3, 2022 · ded566e · ded566e · github-actions · Apr 3, 2022
1 parent 46f05b5
commit ded566e
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/testthat/test_wrapper.R b/tests/testthat/test_wrapper.R
@@ -40,6 +40,10 @@ test_that("Basic hcore functionality works", {
   expect_silent(run(hc, 2100))
   expect_silent(run(hc))
 
+  # All years should appear in the output
+  out <- fetchvars(hc, dates = 1745:2300)
+  expect_equivalent(sort(unique(out$year)), 1745:2300)
+
   hc <- shutdown(hc)
   expect_false(isactive(hc))
 })