diff --git a/tools/capone/test/if-not.ss b/tools/capone/test/if-not.ss
new file mode 100644
index 0000000..0400153
--- /dev/null
+++ b/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)
+)))
diff --git a/tools/capone/test/main.ss b/tools/capone/test/main.ss
index 29ae415..f8fce2f 100644
--- a/tools/capone/test/main.ss
+++ b/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 "  =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=")