Some tests...

tools/capone/test/if-not.ss

@@ -0,0 +1,18 @@
+;;
+;; if-not expression
+;;
+
+(load "../lib/common.ss")
+
+(ut-add-test
+ "Check 'if-not' expression"
+ (begin
+  (define a 0)
+  (define b 1)
+
+  (and
+   (if-not a #f #t)
+   (if-not (= a 3) #t #f)
+   (if-not (= b 1) #f #t)
+   (if-not (= b 0) #t #f)
+)))

tools/capone/test/main.ss

@@ -11,6 +11,7 @@
 (load "utest.ss")
 (load "math.ss")
 (load "string.ss")
+(load "if-not.ss")
 
 (ut-println "")
 (ut-println "  =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=")