From 3511d02b8eaf4ff4ba24b1824005e8372af74f18 Mon Sep 17 00:00:00 2001 From: Ranke Johannes Date: Fri, 13 Feb 2026 13:19:41 +0100 Subject: Check for matching argument lengths in PEC_sw_drift --- tests/testthat/test_PEC_sw_drift.R | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'tests/testthat') diff --git a/tests/testthat/test_PEC_sw_drift.R b/tests/testthat/test_PEC_sw_drift.R index 5d343d0..da5b185 100644 --- a/tests/testthat/test_PEC_sw_drift.R +++ b/tests/testthat/test_PEC_sw_drift.R @@ -62,5 +62,7 @@ test_that("The function is vectorised also with respect to crop groups", { expect_equal( round(res_vec_2, 3), set_units(c('5 m' = 0.191, '5 m' = 0.160, '5 m' = 0.191, '5 m' = 0.095, '10 m' = 3.936, '5 m' = 6.628), "\u00B5g/L")) - + + # If different argument lengths are supplied, we should get an error + expect_error(PEC_sw_drift(c(200, 100), distances = c(1, 5, 10)), "argument lengths") }) -- cgit v1.2.3