fix(test): warning on CreateCalibOptions due to Reservoir fixed params

Refs #72

fix(test): warning on CreateCalibOptions due to Reservoir fixed params
Refs #72
b5f238f1 · David · 59190e49 · b5f238f1
Commit b5f238f1 authored 1 year ago by David
Hide whitespace changes
Inline Side-by-side

Showing

with 2 additions and 2 deletions
+2 -2
--- a/tests/testthat/test-RunModel_Ungauged.R
+++ b/tests/testthat/test-RunModel_Ungauged.R
@@ -299,8 +299,8 @@ testDerivdedUngauged <- function(donorByDerivation) {
  e <- setupRunModel(griwrm = g, runRunModel = FALSE, Qobs2 = Qobs2)
  for (x in ls(e)) assign(x, get(x, e))
-  CalibOptions <- CreateCalibOptions(InputsModel)
+  CalibOptions <- CreateCalibOptions(InputsModel,
-  CalibOptions[["Dam"]]$FixedParam <- c(650E6, 1)
+                                     FixedParam = list(Dam = c(650E6, 1)))
  e <- runCalibration(g, Qobs2 = Qobs2, CalibOptions = CalibOptions)
  for(x in ls(e)) assign(x, get(x, e))
  expect_equal(Param[["54095"]][1:3],