summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2010-11-17 23:05:50 +0100
committerLudovic Courtès <ludo@gnu.org>2010-11-19 13:34:43 +0100
commitf13f1e9f6ff111fa676e54090eb62f2a0f066d13 (patch)
treeeb711b308240d4a8c8c9b56f323efad9b6b137b6
parentfb032fa722d81f575169e3be5623ebb761f28da0 (diff)
downloadguile-f13f1e9f6ff111fa676e54090eb62f2a0f066d13.tar.gz
Use the `with-test-prefix/c&e' for the `1+' and `1-' tests.
* test-suite/tests/numbers.test ("1+"): Use `with-test-prefix/c&e' instead of `with-test-prefix'. Provide a name to each `pass-if' invocation. ("1-"): Likewise.
-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