test(RunModel_Lag): remove useless test on the QupstrUnit argument of the...

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

@@ -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(