test #ing

Author: MichaelChirico

inst/tests/tests.Rraw

@@ -21239,10 +21239,10 @@ test(2321.5, DT <- data.table(a=1:2, cbind(b=3:4)), data.table(a=1:2, b=3:4))
 test(2321.6, names(DT), names(data.frame(a=1:2, cbind(b=3:4))))
 
 # New fctr() helper: like factor() but retaining order by default #4837
-test(2240.01, levels(fctr(c("b","a","c"))), c("b","a","c"))
-test(2240.02, levels(fctr(c(3,1,2))), c("3","1","2"))
-test(2240.11, levels(fctr(c("b","a","c"), rev=TRUE)), c("c","a","b"))
-test(2240.12, levels(fctr(c("b","a","c"), rev=NA)), error="TRUE or FALSE")
-test(2240.21, levels(fctr(c("b","a","c"), sort=TRUE)), c("a","b","c"))
-test(2240.22, levels(fctr(c("b","a","c"), sort=NA)), error="TRUE or FALSE")
-test(2240.31, levels(fctr(c("b","a","c"), rev=TRUE, sort=TRUE)), c("c","b","a"))
+test(2322.01, levels(fctr(c("b","a","c"))), c("b","a","c"))
+test(2322.02, levels(fctr(c(3,1,2))), c("3","1","2"))
+test(2322.11, levels(fctr(c("b","a","c"), rev=TRUE)), c("c","a","b"))
+test(2322.12, levels(fctr(c("b","a","c"), rev=NA)), error="TRUE or FALSE")
+test(2322.21, levels(fctr(c("b","a","c"), sort=TRUE)), c("a","b","c"))
+test(2322.22, levels(fctr(c("b","a","c"), sort=NA)), error="TRUE or FALSE")
+test(2322.31, levels(fctr(c("b","a","c"), rev=TRUE, sort=TRUE)), c("c","b","a"))