*** empty log message ***

diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index e6e4449..355b2ee 100644 (file)
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,28 @@
+2003-03-24  Rob Browning  <rlb@defaultvalue.org>
+
+       * tests/numbers.test: added tests (some simple) for various funcs.
+       ("odd?"): added tests.
+       ("even?"): added tests.
+       ("nan?"): added tests.
+       ("abs"): added tests.
+       ("lcm"): added tests.
+       ("number->string"): added tests.
+       ("number?"): added tests.
+       ("complex?"): added tests.
+       ("real?"): added tests.
+       ("rational?"): added tests.
+       ("integer?"): added tests.
+       ("inexact?"): added tests.
+       ("="): added tests.
+       ("zero?"): added tests.
+       ("positive?"): added tests.
+       ("negative?"): added tests.
+
+       * lib.scm (pass-if): allow really simple tests where the test code
+       is also the name like (pass-if (even? 2)).
+       (expect-fail): allow really simple tests where the test code is
+       also the test name like (expect-fail (even? 2)).
+
 2003-03-19  Marius Vollmer  <mvo@zagadka.de>
 
        * tests/format.test ("format basic output"): Added test for "~F"

diff --git a/test-suite/tests/bit-operations.test b/test-suite/tests/bit-operations.test
index 47cca5f..475a6d3 100644 (file)
--- a/test-suite/tests/bit-operations.test
+++ b/test-suite/tests/bit-operations.test
@@ -263,10 +263,14 @@
       (list fixnum-min 0 (+ fixnum-bit -1) (ash 0 (- fixnum-bit 1)))
       (list fixnum-min 1 (+ fixnum-bit  0) (ash 1 (- fixnum-bit 2)))
       (list fixnum-min 2 (+ fixnum-bit  1) (ash 3 (- fixnum-bit 3)))
-      (list fixnum-min (+ fixnum-bit -2) (+ fixnum-bit fixnum-bit -3) (- (ash 1        (- fixnum-bit 1)) 2))
-      (list fixnum-min (+ fixnum-bit -1) (+ fixnum-bit fixnum-bit -2) (- (ash 1        (- fixnum-bit 1)) 1))
-      (list fixnum-min (+ fixnum-bit  0) (+ fixnum-bit fixnum-bit -1) (- (ash 1        (- fixnum-bit 1)) 1))
-      (list fixnum-min (+ fixnum-bit  1) (+ fixnum-bit fixnum-bit  0) (- (ash 1        (- fixnum-bit 1)) 1))))
+      (list fixnum-min (+ fixnum-bit -2) (+ fixnum-bit fixnum-bit -3)
+            (- (ash 1  (- fixnum-bit 1)) 2))
+      (list fixnum-min (+ fixnum-bit -1) (+ fixnum-bit fixnum-bit -2)
+            (- (ash 1  (- fixnum-bit 1)) 1))
+      (list fixnum-min (+ fixnum-bit  0) (+ fixnum-bit fixnum-bit -1)
+            (- (ash 1  (- fixnum-bit 1)) 1))
+      (list fixnum-min (+ fixnum-bit  1) (+ fixnum-bit fixnum-bit  0)
+            (- (ash 1  (- fixnum-bit 1)) 1))))
 
     (run-tests
      (lambda (a b c d)
@@ -277,10 +281,14 @@
       (list fixnum-min 0 (+ fixnum-bit  0) (ash 1 (- fixnum-bit 1)))
       (list fixnum-min 1 (+ fixnum-bit  1) (ash 3 (- fixnum-bit 2)))
       (list fixnum-min 2 (+ fixnum-bit  2) (ash 7 (- fixnum-bit 3)))
-      (list fixnum-min (+ fixnum-bit -2) (+ fixnum-bit fixnum-bit -2) (- (ash 1        fixnum-bit) 2))
-      (list fixnum-min (+ fixnum-bit -1) (+ fixnum-bit fixnum-bit -1) (- (ash 1        fixnum-bit) 1))
-      (list fixnum-min (+ fixnum-bit  0) (+ fixnum-bit fixnum-bit  0) (- (ash 1        fixnum-bit) 1))
-      (list fixnum-min (+ fixnum-bit  1) (+ fixnum-bit fixnum-bit  1) (- (ash 1        fixnum-bit) 1))))
+      (list fixnum-min (+ fixnum-bit -2) (+ fixnum-bit fixnum-bit -2)
+            (- (ash 1  fixnum-bit) 2))
+      (list fixnum-min (+ fixnum-bit -1) (+ fixnum-bit fixnum-bit -1)
+            (- (ash 1  fixnum-bit) 1))
+      (list fixnum-min (+ fixnum-bit  0) (+ fixnum-bit fixnum-bit  0)
+            (- (ash 1  fixnum-bit) 1))
+      (list fixnum-min (+ fixnum-bit  1) (+ fixnum-bit fixnum-bit  1)
+            (- (ash 1  fixnum-bit) 1))))
 
     (run-tests
      (lambda (a b c d)
@@ -291,10 +299,14 @@
       (list fixnum-min 0 (+ fixnum-bit  1) (ash  3 (- fixnum-bit 1)))
       (list fixnum-min 1 (+ fixnum-bit  2) (ash  7 (- fixnum-bit 2)))
       (list fixnum-min 2 (+ fixnum-bit  3) (ash 15 (- fixnum-bit 3)))
-      (list fixnum-min (+ fixnum-bit -2) (+ fixnum-bit fixnum-bit -1) (- (ash 1 (+ fixnum-bit 1)) 2))
-      (list fixnum-min (+ fixnum-bit -1) (+ fixnum-bit fixnum-bit  0) (- (ash 1 (+ fixnum-bit 1)) 1))
-      (list fixnum-min (+ fixnum-bit  0) (+ fixnum-bit fixnum-bit  1) (- (ash 1 (+ fixnum-bit 1)) 1))
-      (list fixnum-min (+ fixnum-bit  1) (+ fixnum-bit fixnum-bit  2) (- (ash 1 (+ fixnum-bit 1)) 1)))))
+      (list fixnum-min (+ fixnum-bit -2) (+ fixnum-bit fixnum-bit -1)
+            (- (ash 1 (+ fixnum-bit 1)) 2))
+      (list fixnum-min (+ fixnum-bit -1) (+ fixnum-bit fixnum-bit  0)
+            (- (ash 1 (+ fixnum-bit 1)) 1))
+      (list fixnum-min (+ fixnum-bit  0) (+ fixnum-bit fixnum-bit  1)
+            (- (ash 1 (+ fixnum-bit 1)) 1))
+      (list fixnum-min (+ fixnum-bit  1) (+ fixnum-bit fixnum-bit  2)
+            (- (ash 1 (+ fixnum-bit 1)) 1)))))
 
   (with-test-prefix "extract from fixnum-min - 1"
 
@@ -317,13 +329,20 @@
      (lambda (a b c d)
        (= (bit-extract a b c) d))
      (list
-      (list (- fixnum-min 1) 0 (+ fixnum-bit -1) (- (ash 1 (- fixnum-bit 1)) 1 (ash 0 (- fixnum-bit 1))))
-      (list (- fixnum-min 1) 1 (+ fixnum-bit  0) (- (ash 1 (- fixnum-bit 1)) 1 (ash 1 (- fixnum-bit 2))))
-      (list (- fixnum-min 1) 2 (+ fixnum-bit  1) (- (ash 1 (- fixnum-bit 1)) 1 (ash 1 (- fixnum-bit 3))))
-      (list (- fixnum-min 1) (+ fixnum-bit -2) (+ fixnum-bit fixnum-bit -3) (- (ash 1 (- fixnum-bit 1)) 3))
-      (list (- fixnum-min 1) (+ fixnum-bit -1) (+ fixnum-bit fixnum-bit -2) (- (ash 1 (- fixnum-bit 1)) 2))
-      (list (- fixnum-min 1) (+ fixnum-bit  0) (+ fixnum-bit fixnum-bit -1) (- (ash 1 (- fixnum-bit 1)) 1))
-      (list (- fixnum-min 1) (+ fixnum-bit  1) (+ fixnum-bit fixnum-bit  0) (- (ash 1 (- fixnum-bit 1)) 1))))
+      (list (- fixnum-min 1) 0 (+ fixnum-bit -1)
+            (- (ash 1 (- fixnum-bit 1)) 1 (ash 0 (- fixnum-bit 1))))
+      (list (- fixnum-min 1) 1 (+ fixnum-bit  0)
+            (- (ash 1 (- fixnum-bit 1)) 1 (ash 1 (- fixnum-bit 2))))
+      (list (- fixnum-min 1) 2 (+ fixnum-bit  1)
+            (- (ash 1 (- fixnum-bit 1)) 1 (ash 1 (- fixnum-bit 3))))
+      (list (- fixnum-min 1) (+ fixnum-bit -2)
+            (+ fixnum-bit fixnum-bit -3) (- (ash 1 (- fixnum-bit 1)) 3))
+      (list (- fixnum-min 1) (+ fixnum-bit -1)
+            (+ fixnum-bit fixnum-bit -2) (- (ash 1 (- fixnum-bit 1)) 2))
+      (list (- fixnum-min 1) (+ fixnum-bit  0)
+            (+ fixnum-bit fixnum-bit -1) (- (ash 1 (- fixnum-bit 1)) 1))
+      (list (- fixnum-min 1) (+ fixnum-bit  1)
+            (+ fixnum-bit fixnum-bit  0) (- (ash 1 (- fixnum-bit 1)) 1))))
 
     (run-tests
      (lambda (a b c d)
@@ -331,13 +350,20 @@
      (lambda (a b c d)
        (= (bit-extract a b c) d))
      (list
-      (list (- fixnum-min 1) 0 (+ fixnum-bit  0) (- (ash 1 fixnum-bit) 1 (ash 1 (- fixnum-bit 1))))
-      (list (- fixnum-min 1) 1 (+ fixnum-bit  1) (- (ash 1 fixnum-bit) 1 (ash 1 (- fixnum-bit 2))))
-      (list (- fixnum-min 1) 2 (+ fixnum-bit  2) (- (ash 1 fixnum-bit) 1 (ash 1 (- fixnum-bit 3))))
-      (list (- fixnum-min 1) (+ fixnum-bit -2) (+ fixnum-bit fixnum-bit -2) (- (ash 1 fixnum-bit) 3))
-      (list (- fixnum-min 1) (+ fixnum-bit -1) (+ fixnum-bit fixnum-bit -1) (- (ash 1 fixnum-bit) 2))
-      (list (- fixnum-min 1) (+ fixnum-bit  0) (+ fixnum-bit fixnum-bit  0) (- (ash 1 fixnum-bit) 1))
-      (list (- fixnum-min 1) (+ fixnum-bit  1) (+ fixnum-bit fixnum-bit  1) (- (ash 1 fixnum-bit) 1))))
+      (list (- fixnum-min 1) 0 (+ fixnum-bit  0)
+            (- (ash 1 fixnum-bit) 1 (ash 1 (- fixnum-bit 1))))
+      (list (- fixnum-min 1) 1 (+ fixnum-bit  1)
+            (- (ash 1 fixnum-bit) 1 (ash 1 (- fixnum-bit 2))))
+      (list (- fixnum-min 1) 2 (+ fixnum-bit  2)
+            (- (ash 1 fixnum-bit) 1 (ash 1 (- fixnum-bit 3))))
+      (list (- fixnum-min 1) (+ fixnum-bit -2)
+            (+ fixnum-bit fixnum-bit -2) (- (ash 1 fixnum-bit) 3))
+      (list (- fixnum-min 1) (+ fixnum-bit -1)
+            (+ fixnum-bit fixnum-bit -1) (- (ash 1 fixnum-bit) 2))
+      (list (- fixnum-min 1) (+ fixnum-bit  0)
+            (+ fixnum-bit fixnum-bit  0) (- (ash 1 fixnum-bit) 1))
+      (list (- fixnum-min 1) (+ fixnum-bit  1)
+            (+ fixnum-bit fixnum-bit  1) (- (ash 1 fixnum-bit) 1))))
 
     (run-tests
      (lambda (a b c d)
@@ -345,10 +371,17 @@
      (lambda (a b c d)
        (= (bit-extract a b c) d))
      (list
-      (list (- fixnum-min 1) 0 (+ fixnum-bit  1) (- (ash 1 (+ fixnum-bit 1)) 1 (ash 1 (- fixnum-bit 1))))
-      (list (- fixnum-min 1) 1 (+ fixnum-bit  2) (- (ash 1 (+ fixnum-bit 1)) 1 (ash 1 (- fixnum-bit 2))))
-      (list (- fixnum-min 1) 2 (+ fixnum-bit  3) (- (ash 1 (+ fixnum-bit 1)) 1 (ash 1 (- fixnum-bit 3))))
-      (list (- fixnum-min 1) (+ fixnum-bit -2) (+ fixnum-bit fixnum-bit -1) (- (ash 1 (+ fixnum-bit 1)) 3))
-      (list (- fixnum-min 1) (+ fixnum-bit -1) (+ fixnum-bit fixnum-bit  0) (- (ash 1 (+ fixnum-bit 1)) 2))
-      (list (- fixnum-min 1) (+ fixnum-bit  0) (+ fixnum-bit fixnum-bit  1) (- (ash 1 (+ fixnum-bit 1)) 1))
-      (list (- fixnum-min 1) (+ fixnum-bit  1) (+ fixnum-bit fixnum-bit  2) (- (ash 1 (+ fixnum-bit 1)) 1))))))
+      (list (- fixnum-min 1) 0 (+ fixnum-bit  1)
+            (- (ash 1 (+ fixnum-bit 1)) 1 (ash 1 (- fixnum-bit 1))))
+      (list (- fixnum-min 1) 1 (+ fixnum-bit  2)
+            (- (ash 1 (+ fixnum-bit 1)) 1 (ash 1 (- fixnum-bit 2))))
+      (list (- fixnum-min 1) 2 (+ fixnum-bit  3)
+            (- (ash 1 (+ fixnum-bit 1)) 1 (ash 1 (- fixnum-bit 3))))
+      (list (- fixnum-min 1) (+ fixnum-bit -2)
+            (+ fixnum-bit fixnum-bit -1) (- (ash 1 (+ fixnum-bit 1)) 3))
+      (list (- fixnum-min 1) (+ fixnum-bit -1)
+            (+ fixnum-bit fixnum-bit  0) (- (ash 1 (+ fixnum-bit 1)) 2))
+      (list (- fixnum-min 1) (+ fixnum-bit  0)
+            (+ fixnum-bit fixnum-bit  1) (- (ash 1 (+ fixnum-bit 1)) 1))
+      (list (- fixnum-min 1) (+ fixnum-bit  1)
+            (+ fixnum-bit fixnum-bit  2) (- (ash 1 (+ fixnum-bit 1)) 1))))))