unit tests

Author: jangorecki

inst/tests/froll.Rraw

@@ -1005,7 +1005,7 @@ test(6000.502, frollmax(c(5,NaN,1), 1L), c(5,NaN,1))
 test(6000.503, frollmax(c(5,1,1,NaN,1,1,1), 2L), c(NA,5,1,NaN,NaN,1,1))
 test(6000.504, frollmax(c(5,1,NA,NaN,1,1,1), 2L), c(NA,5,NA,NA,NaN,1,1))
 
-# n==NA
+# n==NA, n<0
 test(6000.550, frollmean(1:3, NA), error="'n' must be an integer")
 test(6000.551, frollmean(1:3, NA_integer_), error="'n' must be non-negative integer values (>= 0)")
 test(6000.552, frollmean(1:3, NA, algo="exact"), error="'n' must be an integer")
@@ -1016,6 +1016,11 @@ test(6000.556, frollapply(FUN=mean, 1:3, NA), error="'N' must be an integer")
 test(6000.557, frollapply(FUN=mean, 1:3, NA_integer_), error="'N' must be non-negative integer values (>= 0)")
 test(6000.558, frollapply(FUN=mean, adaptive=TRUE, 1:3, c(2,NA,2)), error="'N' must be non-negative integer values (>= 0)")
 test(6000.559, frollapply(FUN=mean, adaptive=TRUE, 1:3, list(c(2,NA,2))), error="'N' must be non-negative integer values (>= 0)")
+test(6000.550, frollmean(1:3, -1), error="'n' must be non-negative integer values (>= 0)")
+test(6000.552, frollmean(1:3, -1, algo="exact"), error="'n' must be non-negative integer values (>= 0)")
+test(6000.560, frollapply(FUN=mean, 1:3, -1), error="'N' must be non-negative integer values (>= 0)")
+test(6000.561, frollapply(FUN=mean, 1:3, c(0,-1,1), adaptive=TRUE), error="'N' must be non-negative integer values (>= 0)")
+test(6000.562, frollapply(FUN=mean, 1:3, list(c(0,-1,1)), adaptive=TRUE), error="'N' must be non-negative integer values (>= 0)")
 
 # n==0, k==0, k[i]==0
 test(6001.111, frollmean(1:3, 0), c(NaN,NaN,NaN), options=c("datatable.verbose"=TRUE), output="window width of size 0")