Commit b028fc19 authored by Dorchies David's avatar Dorchies David
Browse files

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

Refs #73, #41
parent 91ff6627
Pipeline #18082 failed with stages
in 12 minutes and 18 seconds
...@@ -186,3 +186,14 @@ test_that("Check data.frame handling in SeriesAggreg.list", { ...@@ -186,3 +186,14 @@ test_that("Check data.frame handling in SeriesAggreg.list", {
expect_warning(SeriesAggreg(InputsModelDown1, "%Y%m"), expect_warning(SeriesAggreg(InputsModelDown1, "%Y%m"),
regexp = "it will be ignored in the aggregation") 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)
})
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment