Try harder to exercise the internal fsort branch

Rdatatable · Feb 28, 2025 · 677e84e · 677e84e
1 parent 5484f03
commit 677e84e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/inst/tests/tests.Rraw b/inst/tests/tests.Rraw
@@ -12716,7 +12716,7 @@ x = runif(1e3)
 test(1888.6, y<-fsort(x,verbose=TRUE), output="nth=.*Top 20 MSB counts")
 test(1888.7, !base::is.unsorted(y))
 test(1888.8, fsort(x,verbose=1), error="verbose must be TRUE or FALSE")
-test(1888.9, fsort(y), base::sort(y))
+test(1888.9, fsort(c(1L, 2L, 3L, 4L), internal = TRUE), c(1L, 2L, 3L, 4L))
 rm(x, y)
 
 # doubling of savetl buffer (currently starts with 100)