Rename and add sorting words

[factor.git] / basis / io / directories / directories-tests.factor

diff --git a/basis/io/directories/directories-tests.factor b/basis/io/directories/directories-tests.factor
index 2f2d95ff13fb7761413a37c355116da8e8ffd30e..92d7e52d8da48edb016476d9055ce01587000338 100644 (file)
--- a/basis/io/directories/directories-tests.factor
+++ b/basis/io/directories/directories-tests.factor
@@ -179,7 +179,7 @@ tools.test ;
 { t } [
     [
         10 [ "io.paths.test" "gogogo" unique-file ] replicate
-        "." [ ] find-files [ absolute-path ] map [ natural-sort ] same?
+        "." [ ] find-files [ absolute-path ] map [ sort ] same?
     ] with-test-directory
 ] unit-test
 
@@ -279,8 +279,8 @@ tools.test ;
 
             ! preserve file traversal order, but sort
             ! alphabetically for cross-platform testing
-            dup length 3 / group natural-sort
-            [ natural-sort ] map concat
+            dup length 3 / group sort
+            [ sort ] map concat
         ] with-variable
 
         +breadth-first+ traversal-method [
@@ -290,7 +290,7 @@ tools.test ;
             ! preserve file traversal order, but sort
             ! alphabetically for cross-platform testing
             [ [ length ] bi@ = ] monotonic-split
-            [ natural-sort ] map concat
+            [ sort ] map concat
         ] with-variable
     ] with-test-directory
 ] unit-test