From 677e84ed74c9d8fa07e1453fa9a43aad854b3c7b Mon Sep 17 00:00:00 2001 From: Ivan K Date: Fri, 28 Feb 2025 14:28:00 +0300 Subject: [PATCH] Try harder to exercise the internal fsort branch --- inst/tests/tests.Rraw | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/inst/tests/tests.Rraw b/inst/tests/tests.Rraw index 2496e00de..c742f20d9 100644 --- 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)