~ chicken-r7rs (master) 7a99b037d09a71a33d8601094c2688f08a60b212

commit 7a99b037d09a71a33d8601094c2688f08a60b212
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Sun Jul 28 19:04:07 2013 +0000
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sun Jul 28 19:04:07 2013 +0000

    Copy the examples for "not" as tests, for completeness

diff --git a/tests/run.scm b/tests/run.scm
index 6ad6d63..b16e054 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -11,6 +11,18 @@
 (test-begin "r7rs tests")
 
 (test-group "6.3: booleans"
+  ;; How silly...
+  (test-group "not"
+    (test #f (not #t))
+    (test #f (not 3))
+    (test #f (not (list 3)))
+    (test #t (not #f))
+    (test #f (not '()))
+    (test #f (not (list)))
+    (test #f (not 'nil))
+    (test-error (not))
+    (test-error (not 1 2)))
+  
   (test-group "long boolean literals"
     (test #t (read-from-string "#t"))
     (test #f (read-from-string "#f"))