From c3cfc177cd4e781acea9fccd7c1136f7ad261738 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 21 Mar 2019 19:41:26 -0500
Subject: [PATCH] io.directories.search: Fix the order of the depth/breadth
 traversals.

This unit test kind of sucks.
---
 .../io/directories/search/search-tests.factor | 40 ++-----------------
 1 file changed, 4 insertions(+), 36 deletions(-)

diff --git a/basis/io/directories/search/search-tests.factor b/basis/io/directories/search/search-tests.factor
index 91831b8a8a..1d8bd99d5f 100644
--- a/basis/io/directories/search/search-tests.factor
+++ b/basis/io/directories/search/search-tests.factor
@@ -47,42 +47,9 @@ strings tools.test ;
     [ drop f ] find-up-to-root
 ] unit-test
 
-[
-    {
-        "/a"
-        "/a/a"
-        "/a/a/a"
-        "/a/b"
-        "/a/b/a"
-        "/b"
-        "/b/a"
-        "/b/a/a"
-        "/b/b"
-        "/b/b/a"
-        "/c"
-        "/c/a"
-        "/c/a/a"
-        "/c/b"
-        "/c/b/a"
-    }
-    {
-        "/a"
-        "/b"
-        "/c"
-        "/a/a"
-        "/a/b"
-        "/b/a"
-        "/b/b"
-        "/c/a"
-        "/c/b"
-        "/a/a/a"
-        "/a/b/a"
-        "/b/a/a"
-        "/b/b/a"
-        "/c/a/a"
-        "/c/b/a"
-    }
-] [
+{
+    t
+} [
     [
         "a" make-directory
         "a/a" make-directory
@@ -120,4 +87,5 @@ strings tools.test ;
             [ natural-sort ] map concat
         ] with-variable
     ] with-test-directory
+    [ natural-sort ] bi@ sequence=
 ] unit-test