summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2003-05-05 23:04:02 +0000
committerKevin Ryde <user42@zip.com.au>2003-05-05 23:04:02 +0000
commit300c6a76b34517e5d78f53ac828d2d3372d5e7bf (patch)
treefbe2fd57eeef39fa40ec63e25b928c807ff6b892
parentc78b590e562435df6f32724265a36931a7f6eb6c (diff)
downloadguile-300c6a76b34517e5d78f53ac828d2d3372d5e7bf.tar.gz
(logcount): New tests, exercising some negatives.
-rw-r--r--test-suite/tests/numbers.test13
1 files changed, 13 insertions, 0 deletions
diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test
index b90eab208..3dfa51eee 100644
--- a/test-suite/tests/numbers.test
+++ b/test-suite/tests/numbers.test
@@ -1745,3 +1745,16 @@
;;;
;;; inexact->exact
;;;
+
+;;;
+;;; logcount
+;;;
+
+(with-test-prefix "logcount"
+
+ (with-test-prefix "-2^i, meaning ...11100..00"
+ (do ((n -1 (ash n 1))
+ (i 0 (1+ i)))
+ ((> i 256))
+ (pass-if n
+ (= i (logcount n))))))