[bpt/guile.git] / test-suite / vm / t-literal-integers.scm

;; Check whether literal integers are correctly signed.

(and (=  4294967295 (- (expt 2 32) 1))      ;; unsigned
     (= -2147483648 (- (expt 2 31)))        ;; signed
     (=  2147483648 (expt 2 31)))           ;; unsigned
Commit	Line	Data
b912a1cd LC	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