test(calibration): fix issue wrong parameter on CemaNeigGR4H with hysteresis

Refs #120

test(calibration): fix issue wrong parameter on CemaNeigGR4H with hysteresis
Refs #120
eaeff017 · Dorchies David · 7a97389c · eaeff017
Commit eaeff017 authored 3 years ago by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing

with 2 additions and 2 deletions
+2 -2
--- a/tests/testthat/test-Calibration.R
+++ b/tests/testthat/test-Calibration.R
@@ -17,7 +17,7 @@ sModels <- c(
  "GR5H            FALSE  L0123003 NA     804.0021672;-0.1898488;137.7524699;3.0436628;0.1951163",
  "CemaNeigeGR4H   FALSE  L0123003 NA     1.595685e+03;-8.183484e-01;2.320697e+02;5.000000e-01;5.005005e-04;9.342369e+01",
  "CemaNeigeGR5H   FALSE  L0123003 NA     33.34921883;-4.98925432;332.00673122;1.58534106;0.20792716;0.02214393;4.28498513",
-  "CemaNeigeGR4H   TRUE   L0123003 NA     1.766316e+03;-6.920667e-01;2.192034e+02;3.451688e+00;5.005005e-0;4.869585e+01;1.111447e+0;5.064090e-01",
+  "CemaNeigeGR4H   TRUE   L0123003 NA     1.766316e+03;-6.920667e-01;2.192034e+02;3.451688e+00;5.005005e-04;4.869585e+01;1.111447e+01;5.064090e-01",
  "CemaNeigeGR5H   TRUE   L0123003 NA     66.6863310;-1.4558128;138.3795123;2.6499450;0.2325000;0.0000000;0.3017014;48.4000000;0.9914915"
 )
 dfModels <- read.table(text = paste(sModels, collapse = "\n"), header = TRUE)
@@ -106,7 +106,7 @@ ModelCalibration <- function(model) {
 TestModelCalibration <- function(model) {
  model <- as.list(model)
-  test_that(paste(model$name, "works"), {
+  test_that(paste(model$name, ifelse(as.logical(model$IsHyst), "Hysteresis", ""), "works"), {
    skip_on_cran()
    ParamFinalR <- ModelCalibration(model)