add a unit test to io.paths

2008-12-08 21:32:19 -06:00 · 2008-12-08 21:32:19 -06:00 · 101bc66b2b
parent 971a6c89be
commit 101bc66b2b
1 changed files with 11 additions and 0 deletions
--- a/basis/io/paths/paths-tests.factor
+++ b/basis/io/paths/paths-tests.factor
@ -0,0 +1,11 @@
 USING: io.paths kernel tools.test io.files.unique sequences
 io.files namespaces sorting ;
 IN: io.paths.tests
 [ t ] [
    [
        10 [ "io.paths.test" "gogogo" make-unique-file* ] replicate
        current-directory get t [ ] find-all-files
    ] with-unique-directory
    [ natural-sort ] bi@ =
 ] unit-test