Rename and repair test functions

Author: hsonne

tests/testthat/test-function-irrigation_and_unknown_summer_correction.R

@@ -0,0 +1,13 @@
+#library(testthat)
+test_that("irrigation_and_unknown_summer_correction() works", {
+
+  f <- kwb.rabimo:::irrigation_and_unknown_summer_correction
+
+  expect_error(f())
+
+  irrigation <- 1:1000
+  correction_factor <- f(irrigation)
+  
+  # We expect the maximum at 374, why?
+  expect_equal(irrigation[which.max(correction_factor)], 374)
+})

tests/testthat/test-function-irrigation_in_dry_summer_correction_factor.R

@@ -0,0 +1,15 @@
+# library(testthat)
+test_that("summer_correction() works", {
+
+  f <- kwb.rabimo:::summer_correction
+
+  expect_error(f())
+
+  water_availability <- 1:1000
+  correction_factor <- f(water_availability, epot_summer = 1000)
+
+  #plot(water_availability, correction_factor)
+  
+  expect_true(all(correction_factor > 0.6))
+  expect_true(all(correction_factor < 1.6))
+})