From 08f93b3724fda8a2728aa89a024f8501024db011 Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Tue, 27 Apr 2021 09:01:57 +0200
Subject: [PATCH] test(RunModel_Lag): remove useless test on the QupstrUnit
argument of the CreateInputsModel function - now use match.arg Refs 7cbab175
---
tests/testthat/test-RunModel_Lag.R | 16 ----------------
1 file changed, 16 deletions(-)
diff --git a/tests/testthat/test-RunModel_Lag.R b/tests/testthat/test-RunModel_Lag.R
index 26e10832..c7cc53ec 100644
--- a/tests/testthat/test-RunModel_Lag.R
+++ b/tests/testthat/test-RunModel_Lag.R
@@ -39,22 +39,6 @@ RunOptions <- suppressWarnings(CreateRunOptions(FUN_MOD = RunModel_GR4J,
InputsModel = InputsModel,
IndPeriod_Run = Ind_Run))
-test_that("'QupstrUnit' must correspond to one possible value", {
- expect_error(
- InputsModel <- CreateInputsModel(
- FUN_MOD = RunModel_GR4J,
- DatesR = BasinObs$DatesR,
- Precip = BasinObs$P,
- PotEvap = BasinObs$E,
- Qupstream = matrix(Qupstream, ncol = 1),
- LengthHydro = 1,
- BasinAreas = BasinAreas,
- QupstrUnit = "m3/h"
- ),
- regexp = "'arg' should be one of \"mm\", \"m3\", \"m3/s\", \"l/s\""
- )
-})
-
test_that("QcontribDown parameter should be a numeric vector or an OutputModel object", {
regexp = "'QcontribDown' must be a numeric vector or a 'OutputsModel' object"
expect_error(
--
GitLab