1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
guile/test-suite/vm/t-literal-integers.scm
Ludovic Courtès aa592f96b0 Rename the testsuite' directory to test-suite/vm'.
* testsuite: Move to...
* test-suite/vm: ... here.

* Makefile.am (SUBDIRS): Remove `testsuite'.

* configure.ac: Output `test-suite/vm/Makefile' instead of
  `testsuite/Makefile'.

* test-suite/Makefile.am (SUBDIRS): Add `vm'.
2010-05-26 23:41:24 +02:00

5 lines
223 B
Scheme

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