From 3bd23f24146c5b5553357526a9baaa52f62abd2e Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@user-64-9-237-49.googlewifi.com>
Date: Sat, 18 Sep 2010 20:30:20 -0700
Subject: [PATCH] io.directories.hierarchy: add some tests

---
 .../hierarchy/hierarchy-tests.factor          | 21 +++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 basis/io/directories/hierarchy/hierarchy-tests.factor

diff --git a/basis/io/directories/hierarchy/hierarchy-tests.factor b/basis/io/directories/hierarchy/hierarchy-tests.factor
new file mode 100644
index 0000000000..fdf05684cc
--- /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