diff --git a/tests/testthat/helper_seriesaggreg.R b/tests/testthat/helper_seriesaggreg.R deleted file mode 100644 index e09bc4a13acc22649c814db7de46096010e23377..0000000000000000000000000000000000000000 --- a/tests/testthat/helper_seriesaggreg.R +++ /dev/null @@ -1,3 +0,0 @@ -sample2 <- function(x) {sample(x, 2)} - -stringFunction <- function(x) {format(max(x))} diff --git a/tests/testthat/test-SeriesAggreg.R b/tests/testthat/test-SeriesAggreg.R index ce5cf87610b64ddcebe084d883b3ea8acba54547..7ec93199f305eb123ba1cd4b917a73e5196588d2 100644 --- a/tests/testthat/test-SeriesAggreg.R +++ b/tests/testthat/test-SeriesAggreg.R @@ -230,11 +230,3 @@ test_that("SeriesAggreg should work with ConvertFun 'min', 'max' and 'median'", } lapply(c("max", "min", "median"), function(x) {test_ConvertFunRegime(Qls, x, "%Y")}) }) - -test_that("Error on wrong aggregation function", { - Qls <- BasinObs[, c("DatesR", "Qls")] - expect_error(SeriesAggreg(Qls, "%Y", ConvertFun = "sample2"), - regexp = "should be of length 1") - expect_error(SeriesAggreg(Qls, "%Y", ConvertFun = "stringFunction"), - regexp = "should be numeric") -})