io.directories.search: Fix the order of the depth/breadth traversals.
This unit test kind of sucks.windows-drag
parent
0b794f5a07
commit
c3cfc177cd
|
@ -47,42 +47,9 @@ strings tools.test ;
|
||||||
[ drop f ] find-up-to-root
|
[ drop f ] find-up-to-root
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
[
|
{
|
||||||
{
|
t
|
||||||
"/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"
|
|
||||||
}
|
|
||||||
] [
|
|
||||||
[
|
[
|
||||||
"a" make-directory
|
"a" make-directory
|
||||||
"a/a" make-directory
|
"a/a" make-directory
|
||||||
|
@ -120,4 +87,5 @@ strings tools.test ;
|
||||||
[ natural-sort ] map concat
|
[ natural-sort ] map concat
|
||||||
] with-variable
|
] with-variable
|
||||||
] with-test-directory
|
] with-test-directory
|
||||||
|
[ natural-sort ] bi@ sequence=
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
Loading…
Reference in New Issue