io.directories.search: Add two tests for find-up-to-directory, one that finds a file...

diff --git a/basis/io/directories/search/search-tests.factor b/basis/io/directories/search/search-tests.factor
index 28585d5f41fa64b178697cc6a001bc6cd6f8e9e5..1677f394af0a53214873b60bbd6e82790b95d721 100644 (file)
--- a/basis/io/directories/search/search-tests.factor
+++ b/basis/io/directories/search/search-tests.factor
@@ -35,3 +35,13 @@ IN: io.directories.search.tests
     [ [ file-name "abcd" = ] find-all-in-directories length 2 = ]
     [ [ delete-tree ] each ] tri
 ] unit-test
+
+{ t } [
+    "resource:core/math/integers/integers.factor"
+    [ "math.factor" tail? ] find-up-to-root >boolean
+] unit-test
+
+{ f } [
+    "resource:core/math/integers/integers.factor"
+    [ drop f ] find-up-to-root
+] unit-test