snapshot dates starting with 0 are troublesome

Author: dajmcdon

tests/testthat/_snaps/snapshots.md

@@ -1090,7 +1090,7 @@
     Message
       == A basic forecaster of type ARX Forecaster ===================================
       
-      This forecaster was fit on 0999-01-01.
+      This forecaster was fit on 1999-01-01.
       
       Training data was an <epi_df> with:
       * Geography: state,
@@ -1113,7 +1113,7 @@
     Message
       == A basic forecaster of type ARX Forecaster ===================================
       
-      This forecaster was fit on 0999-01-01.
+      This forecaster was fit on 1999-01-01.
       
       Training data was an <epi_df> with:
       * Geography: state,
@@ -1137,7 +1137,7 @@
     Message
       == A basic forecaster of type ARX Forecaster ===================================
       
-      This forecaster was fit on 0999-01-01.
+      This forecaster was fit on 1999-01-01.
       
       Training data was an <epi_df> with:
       * Geography: state,

tests/testthat/test-snapshots.R

@@ -118,7 +118,7 @@ test_that("arx_forecaster output format snapshots", {
     c("case_rate", "death_rate")
   )
   expect_equal(as.Date(format(out1$metadata$forecast_created, "%Y-%m-%d")), Sys.Date())
-  out1$metadata$forecast_created <- as.Date("0999-01-01")
+  out1$metadata$forecast_created <- as.Date("1999-01-01")
   expect_snapshot(out1)
   out2 <- arx_forecaster(jhu, "case_rate",
     c("case_rate", "death_rate"),
@@ -130,7 +130,7 @@ test_that("arx_forecaster output format snapshots", {
     )
   )
   expect_equal(as.Date(format(out2$metadata$forecast_created, "%Y-%m-%d")), Sys.Date())
-  out2$metadata$forecast_created <- as.Date("0999-01-01")
+  out2$metadata$forecast_created <- as.Date("1999-01-01")
   expect_snapshot(out2)
   out3 <- arx_forecaster(jhu, "death_rate",
     c("case_rate", "death_rate"),
@@ -141,7 +141,7 @@ test_that("arx_forecaster output format snapshots", {
     )
   )
   expect_equal(as.Date(format(out3$metadata$forecast_created, "%Y-%m-%d")), Sys.Date())
-  out3$metadata$forecast_created <- as.Date("0999-01-01")
+  out3$metadata$forecast_created <- as.Date("1999-01-01")
   expect_snapshot(out3)
 })