update test

Author: ben-schwen

inst/tests/tests.Rraw

@@ -21144,7 +21144,8 @@ test(2314.2, !any(grepl("<int>", tail(capture.output(print(dt, class = TRUE, col
 
 # forderv should not segfault on wide tables due to recursion #4300
 set.seed(1)
+idx = sort(sample(10, 20, TRUE))
 x = matrix(rnorm(1e4), nrow=10)
-idx = sample(10, 20, TRUE)
 DT = as.data.table(x[idx,])
-test(10, length(forderv(DT, by=names(DT), sort=FALSE, retGrp=TRUE)), 20L)
+DT[, V1000 := 20:1]
+test(2315, forderv(DT, by=names(DT), sort=FALSE, retGrp=TRUE), forderv(DT, by=c("V1", "V1000"), sort=FALSE, retGrp=TRUE))