mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +02:00
Code Activity

(lognot): Add tests.

Browse source
This commit is contained in:
Kevin Ryde 2003-08-30 00:00:58 +00:00
parent 53872505f0
commit 1ec2dd6fd2
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
test-suite/tests/numbers.test
View file

@ -2069,3 +2069,17 @@
(pass-if n (pass-if n
(= i (logcount n)))))) (= i (logcount n))))))
;;;
;;; lognot
;;;
(with-test-prefix "lognot"
(pass-if (= -1 (lognot 0)))
(pass-if (= 0 (lognot -1)))
(pass-if (= -2 (lognot 1)))
(pass-if (= 1 (lognot -2)))
(pass-if (= #x-100000000000000000000000000000000
(lognot #xFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF)))
(pass-if (= #xFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
(lognot #x-100000000000000000000000000000000))))