test: Add a failing test for issue on aggregating from and to the same time step

Refs #73, #41

tests/testthat/test-SeriesAggreg.R

@@ -186,3 +186,14 @@ test_that("Check data.frame handling in SeriesAggreg.list", {
   expect_warning(SeriesAggreg(InputsModelDown1, "%Y%m"),
                  regexp = "it will be ignored in the aggregation")
 })
+test_that("SeriesAggreg from and to the same time step should return initial time series", {
+  InputsModel <- CreateInputsModel(
+    FUN_MOD = RunModel_GR4J,
+    DatesR = BasinObs$DatesR,
+    Precip = BasinObs$P,
+    PotEvap = BasinObs$E
+  )
+  I2 <- SeriesAggreg(InputsModel, "%Y%m")
+  I3 <- SeriesAggreg(I2, "%Y%m")
+  expect_equal(I2, I3)
+})