aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/testthat/test_exposit.R8
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/testthat/test_exposit.R b/tests/testthat/test_exposit.R
index f6a2de4..13371a6 100644
--- a/tests/testthat/test_exposit.R
+++ b/tests/testthat/test_exposit.R
@@ -72,4 +72,12 @@ test_that("Drainage PECsw are as in Exposit 3.02", {
res_3 <- PEC_sw_exposit_drainage(200, Koc = 30, DT50 = 100)
res_pfm_3 <- round(res_3$PEC_sw_drainage, 2)
expect_equivalent(res_exposit_3, res_pfm_3)
+
+ # 1000 g/ha, Koc = 545 L/kg, group = 1, DT50 = 20 days, 25% interception
+ res_exposit_4 <- c(spring = 0.11, autumn = 0.32)
+
+ res_4 <- PEC_sw_exposit_drainage(1000, interception = 0.25, Koc = 545, DT50 =
+ 20, mobility = "low")
+ res_pfm_4 <- round(res_4$PEC_sw_drainage, 2)
+ expect_equivalent(res_exposit_4, res_pfm_4)
})

Contact - Imprint