test: {when,if,unless}-file-exists

Signed-off-by: Rudi Grinberg <me@rgrinberg.com>
factor · May 23, 2024 · e199379 · e199379
1 parent b16eed9
commit e199379
Showing 1 changed file with 23 additions and 0 deletions.
diff --git a/core/io/files/files-tests.factor b/core/io/files/files-tests.factor
@@ -303,3 +303,26 @@ CONSTANT: pt-array-1
 ] unit-test
 
 { f } [ f file-exists? ] unit-test
+
+{ } [
+    "should-never-exist" [ drop t ] when-file-exists
+] unit-test
+
+{ t } [
+    [ [ drop t ] when-file-exists ] with-test-file
+] unit-test
+
+{ t } [
+    "should-never-exist" [ drop t ] unless-file-exists
+] unit-test
+
+{ } [
+    [ [ drop t ] unless-file-exists ] with-test-file
+] unit-test
+
+: ife-bool ( path -- bool )
+    [ drop t ] [ drop f ] if-file-exists ;
+
+{ t } [ [ ife-bool ] with-test-file ] unit-test
+
+{ f } [ "should-never-exist" ife-bool ] unit-test