mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Rob Browning 2003-03-25 02:21:10 +00:00
parent b4690a661e
commit 122cf9a5fb
2 changed files with 91 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

25
test-suite/ChangeLog
View file

@ -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"

99
test-suite/tests/bit-operations.test
View file

@ -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))))))