diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog index e6e444926..355b2eef0 100644 --- a/test-suite/ChangeLog +++ b/test-suite/ChangeLog @@ -1,3 +1,28 @@ +2003-03-24 Rob Browning + + * 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 * 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 47cca5fdc..475a6d389 100644 --- 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))))))