summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--test-suite/tests/numbers.test32
1 files changed, 18 insertions, 14 deletions
diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test
index 43a1a9030..750ddfb07 100644
--- a/test-suite/tests/numbers.test
+++ b/test-suite/tests/numbers.test
@@ -101,41 +101,45 @@
;;; 1+
;;;
-(with-test-prefix "1+"
+(with-test-prefix/c&e "1+"
(pass-if "documented?"
(documented? 1+))
- (pass-if (eqv? 1 (1+ 0)))
- (pass-if (eqv? 0 (1+ -1)))
- (pass-if (eqv? 101 (1+ 100)))
- (pass-if (eqv? -99 (1+ -100)))
+ (pass-if "0" (eqv? 1 (1+ 0)))
+ (pass-if "-1" (eqv? 0 (1+ -1)))
+ (pass-if "100" (eqv? 101 (1+ 100)))
+ (pass-if "-100" (eqv? -99 (1+ -100)))
;; The maximum fixnum on a 32-bit architecture: 2^29 - 1.
- (pass-if (eqv? 536870912 (1+ 536870911)))
+ (pass-if "1+ fixnum = bignum (32-bit)"
+ (eqv? 536870912 (1+ 536870911)))
;; The maximum fixnum on a 64-bit architecture: 2^61 - 1.
- (pass-if (eqv? 2305843009213693952 (1+ 2305843009213693951))))
+ (pass-if "1+ fixnum = bignum (64-bit)"
+ (eqv? 2305843009213693952 (1+ 2305843009213693951))))
;;;
;;; 1-
;;;
-(with-test-prefix "1-"
+(with-test-prefix/c&e "1-"
(pass-if "documented?"
(documented? 1-))
- (pass-if (eqv? -1 (1- 0)))
- (pass-if (eqv? 0 (1- 1)))
- (pass-if (eqv? 99 (1- 100)))
- (pass-if (eqv? -101 (1- -100)))
+ (pass-if "0" (eqv? -1 (1- 0)))
+ (pass-if "1" (eqv? 0 (1- 1)))
+ (pass-if "100" (eqv? 99 (1- 100)))
+ (pass-if "-100" (eqv? -101 (1- -100)))
;; The minimum fixnum on a 32-bit architecture: -2^29.
- (pass-if (eqv? -536870913 (1- -536870912)))
+ (pass-if "1- fixnum = bignum (32-bit)"
+ (eqv? -536870913 (1- -536870912)))
;; The minimum fixnum on a 64-bit architecture: -2^61.
- (pass-if (eqv? -2305843009213693953 (1- -2305843009213693952))))
+ (pass-if "1- fixnum = bignum (64-bit)"
+ (eqv? -2305843009213693953 (1- -2305843009213693952))))
;;;
;;; ash