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