Commit 3433229e authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v1.6.3.13 test: RunModel_LAG renamed into RunModel_Lag

Refs #34
parent 9cb45ef6
Pipeline #16657 passed with stages
in 11 minutes and 14 seconds
Package: airGR Package: airGR
Type: Package Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.6.3.12 Version: 1.6.3.13
Date: 2020-10-14 Date: 2020-10-14
Authors@R: c( Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")), person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
......
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
### 1.6.3.12 Release Notes (2020-10-14) ### 1.6.3.13 Release Notes (2020-10-14)
#### New features #### New features
......
context("RunModel_LAG") context("RunModel_Lag")
data(L0123001) data(L0123001)
...@@ -56,7 +56,7 @@ RunOptions <- CreateRunOptions(FUN_MOD = RunModel_GR4J, ...@@ -56,7 +56,7 @@ RunOptions <- CreateRunOptions(FUN_MOD = RunModel_GR4J,
test_that("InputsModel parameter should contain an OutputsModel key", { test_that("InputsModel parameter should contain an OutputsModel key", {
expect_error( expect_error(
RunModel_LAG(InputsModel, RunOptions, 1), RunModel_Lag(InputsModel, RunOptions, 1),
regexp = "'InputsModel' should contain an 'OutputsModel' key" regexp = "'InputsModel' should contain an 'OutputsModel' key"
) )
}) })
...@@ -72,7 +72,7 @@ test_that("InputsModel$OutputsModel should contain a Qsim key", { ...@@ -72,7 +72,7 @@ test_that("InputsModel$OutputsModel should contain a Qsim key", {
InputsModel$OutputsModel <- OutputsGR4JOnly InputsModel$OutputsModel <- OutputsGR4JOnly
InputsModel$OutputsModel$Qsim <- NULL InputsModel$OutputsModel$Qsim <- NULL
expect_error( expect_error(
RunModel_LAG(InputsModel, RunOptions, 1), RunModel_Lag(InputsModel, RunOptions, 1),
regexp = "should contain a key 'Qsim'" regexp = "should contain a key 'Qsim'"
) )
}) })
...@@ -81,7 +81,7 @@ test_that("'InputsModel$OutputsModel$Qim' should have the same lenght as 'RunOpt ...@@ -81,7 +81,7 @@ test_that("'InputsModel$OutputsModel$Qim' should have the same lenght as 'RunOpt
InputsModel$OutputsModel <- OutputsGR4JOnly InputsModel$OutputsModel <- OutputsGR4JOnly
InputsModel$OutputsModel$Qsim <- c(InputsModel$OutputsModel$Qsim, 0) InputsModel$OutputsModel$Qsim <- c(InputsModel$OutputsModel$Qsim, 0)
expect_error( expect_error(
RunModel_LAG(InputsModel, RunOptions, 1), RunModel_Lag(InputsModel, RunOptions, 1),
regexp = "should have the same lenght as" regexp = "should have the same lenght as"
) )
}) })
...@@ -90,7 +90,7 @@ test_that("'InputsModel$OutputsModel$Qim' should contain no NA'", { ...@@ -90,7 +90,7 @@ test_that("'InputsModel$OutputsModel$Qim' should contain no NA'", {
InputsModel$OutputsModel <- OutputsGR4JOnly InputsModel$OutputsModel <- OutputsGR4JOnly
InputsModel$OutputsModel$Qsim[10] <- NA InputsModel$OutputsModel$Qsim[10] <- NA
expect_error( expect_error(
RunModel_LAG(InputsModel, RunOptions, 1), RunModel_Lag(InputsModel, RunOptions, 1),
regexp = "contain no NA" regexp = "contain no NA"
) )
}) })
......
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