more coverage

Author: MichaelChirico

inst/tests/tests.Rraw

@@ -21150,5 +21150,8 @@ test(2314.2, !any(grepl("<int>", tail(capture.output(print(dt, class = TRUE, col
 
 # forder.c coverage
 N <- 70000L
-DT <- data.table(V1 = rep(2:1, c(1L, N-1L)))
-test(2315, tail(DT[order(V1), V1], 2L), 1:2)
+DT <- data.table(i = rep(2:1, c(1L, N-1L)))
+test(2315.1, tail(DT[order(i), i], 2L), 1:2)
+# wider range of numbers needed for further coverage
+DT[1L, i := 1000L]
+test(2315.2, tail(DT[order(i), i], 2L), c(1L, 1000L))