diff options
author | Kevin Ryde <user42@zip.com.au> | 2003-05-05 23:04:02 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2003-05-05 23:04:02 +0000 |
commit | 300c6a76b34517e5d78f53ac828d2d3372d5e7bf (patch) | |
tree | fbe2fd57eeef39fa40ec63e25b928c807ff6b892 | |
parent | c78b590e562435df6f32724265a36931a7f6eb6c (diff) | |
download | guile-300c6a76b34517e5d78f53ac828d2d3372d5e7bf.tar.gz |
(logcount): New tests, exercising some negatives.
-rw-r--r-- | test-suite/tests/numbers.test | 13 |
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)))))) |