From cfff7895edb5c40c95a4e789318edd70f30aeb6b Mon Sep 17 00:00:00 2001
From: Sanel Zukan <karijes@users.sf.net>
Date: Mon, 3 Nov 2008 13:22:14 +0000
Subject: [PATCH] Some tests...

---
 tools/capone/test/if-not.ss | 18 ++++++++++++++++++
 tools/capone/test/main.ss   |  1 +
 2 files changed, 19 insertions(+)
 create mode 100644 tools/capone/test/if-not.ss

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 "  =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=")