/[guile]/guile/guile-core/test-suite/tests/numbers.test
ViewVC logotype

Diff of /guile/guile-core/test-suite/tests/numbers.test

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by kryde, Fri Aug 22 01:23:14 2003 UTC revision 1.32 by kryde, Sat Aug 30 00:00:58 2003 UTC
# Line 2069  Line 2069 
2069        (pass-if n        (pass-if n
2070          (= i (logcount n))))))          (= i (logcount n))))))
2071    
2072    ;;;
2073    ;;; lognot
2074    ;;;
2075    
2076    (with-test-prefix "lognot"
2077      (pass-if (= -1 (lognot 0)))
2078      (pass-if (= 0  (lognot -1)))
2079      (pass-if (= -2 (lognot 1)))
2080      (pass-if (= 1  (lognot -2)))
2081      
2082      (pass-if (= #x-100000000000000000000000000000000
2083                  (lognot #xFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF)))
2084      (pass-if (= #xFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
2085                  (lognot #x-100000000000000000000000000000000))))

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26