From f13f1e9f6ff111fa676e54090eb62f2a0f066d13 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 17 Nov 2010 23:05:50 +0100
Subject: [PATCH] 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.
---
 test-suite/tests/numbers.test | 32 ++++++++++++++++++--------------
 1 file 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