Test a no-op fsort(), clean up

Hopefully this will exercise the branch previously missed by covr.

Author: aitap

inst/tests/tests.Rraw

@@ -12716,7 +12716,8 @@ 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")
-rm(x)
+test(1888.9, fsort(y), base::sort(y))
+rm(x, y)
 
 # doubling of savetl buffer (currently starts with 100)
 x = as.character(as.hexmode(1:1000))