testsuite/t-literal-integers.scm

   1 ;; Check whether literal integers are correctly signed.
   2
   3 (and (=  4294967295 (- (expt 2 32) 1))      ;; unsigned
   4      (= -2147483648 (- (expt 2 31)))        ;; signed
   5      (=  2147483648 (expt 2 31)))           ;; unsigned