diff options
| author | Johannes Ranke <johannes.ranke@jrwb.de> | 2025-02-13 13:46:24 +0100 |
|---|---|---|
| committer | Johannes Ranke <johannes.ranke@jrwb.de> | 2025-02-13 13:46:24 +0100 |
| commit | b24f0e8968499af833fff14834f3ed395e5e9f9b (patch) | |
| tree | 705bbc36c5d954a6260db3086413578326ff74dd /tests/testthat/test_UK_drainage.R | |
| parent | ffb06bee1acfa1e5166b37971feaab895dd2b487 (diff) | |
Diffstat (limited to 'tests/testthat/test_UK_drainage.R')
| -rw-r--r-- | tests/testthat/test_UK_drainage.R | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/testthat/test_UK_drainage.R b/tests/testthat/test_UK_drainage.R index 05c59b2..defecbb 100644 --- a/tests/testthat/test_UK_drainage.R +++ b/tests/testthat/test_UK_drainage.R @@ -34,6 +34,14 @@ test_that("UK drainflow PECs are correct", { latest_application = "01 July", soil_DT50 = 200), 2), 0.84) + expect_error(round(PEC_sw_drainage_UK(60, interception = 0.5, Koc = 550, + latest_application = "100 July", + soil_DT50 = 200), 2), "Please specify") + + expect_silent(round(PEC_sw_drainage_UK(60, interception = 0.5, Koc = 550, + latest_application = "29 February", + soil_DT50 = 200), 2)) + # Test that PECsw do not increase if the application is after the beginning # of the drainflow period expect_equal( |