if-not and when-not

2024-10-25 15:48:01 -05:00
parent f3d47afc5f
commit d9081bcffb
2 changed files with 17 additions and 0 deletions
--- a/test.scm
+++ b/test.scm
@@ -23,6 +23,15 @@
   (define value (~>> 1 (/ 2) (/ 2)))
   (assert (= value 1))))

+(define-test if-not
+  (assert (eq? (if-not #f 'a 'b) 'a)))
+
+(define-test when-not
+  (positive-case
+   (assert (eq? (when-not #f 'do-some-stuff 'return) 'return)))
+  (negative-case
+   (assert (unspecified? (when-not #t 'do-some-stuff 'return)))))
+
 (define-test partial
  (test
   (define value (partial / 2))