Test if previous mean results can be reproduced

Author: hsonne

tests/testthat/test-function-run_rabimo.R

@@ -1,5 +1,14 @@
 #library(testthat)
 
+test_that("run_rabimo() reproduces previous results", {
+  config <- kwb.rabimo::rabimo_inputs_2020$config
+  data <- kwb.rabimo::rabimo_inputs_2020$data
+  results <- kwb.rabimo::run_rabimo(data, config)
+  result <- colMeans(results[, c("runoff", "infiltr", "evapor")])
+  expected_result <- c(runoff = 162.5073, infiltr = 184.4515, evapor = 284.8178)
+  expect_equal(round(result, 4L), expected_result)
+})
+
 test_that("run_rabimo() works", {
 
   f <- kwb.rabimo::run_rabimo
@@ -67,4 +76,6 @@ test_that("run_rabimo() works", {
   expect_s3_class(result, "data.frame")
   expect_true(nrow(result) == nrow(data))
 
+
+
 })