io.directories.hierarchy: add some tests

diff --git a/basis/io/directories/hierarchy/hierarchy-tests.factor b/basis/io/directories/hierarchy/hierarchy-tests.factor
new file mode 100644 (file)
index 0000000..fdf0568
--- /dev/null
+++ b/basis/io/directories/hierarchy/hierarchy-tests.factor
@@ -0,0 +1,21 @@
+USING: io.directories io.directories.hierarchy kernel
+sequences tools.test ;
+IN: io.directories.hierarchy.tests
+
+[ { "classes/tuple/tuple.factor" } ] [
+    "resource:core" [
+        "." directory-tree-files [ "classes/tuple/tuple.factor" = ] filter
+    ] with-directory
+] unit-test
+
+[ { "classes/tuple" } ] [
+    "resource:core" [
+        "." directory-tree-files [ "classes/tuple" = ] filter
+    ] with-directory
+] unit-test
+
+[ { "classes/tuple/tuple.factor" } ] [
+    "resource:core" [
+        [ "classes/tuple/tuple.factor" = ] filter
+    ] with-directory-tree-files
+] unit-test