From 1ec2dd6fd2a5d4d15c9c44ac3580805ff530b37a Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Sat, 30 Aug 2003 00:00:58 +0000 Subject: [PATCH] (lognot): Add tests. --- test-suite/tests/numbers.test | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test index 5cbe40ecd..8ba975964 100644 --- a/test-suite/tests/numbers.test +++ b/test-suite/tests/numbers.test @@ -2069,3 +2069,17 @@ (pass-if 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))))