From 17755babc3a517f4c7cec1c04e3e1f32b7ffb5d9 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Tue, 19 Feb 2019 14:27:03 +0100 Subject: Add another test for Exposit drainage to test overriding the mobility group derived from Koc --- tests/testthat/test_exposit.R | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'tests') 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) }) -- cgit v1.2.1