diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-11-17 23:05:50 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-11-19 13:34:43 +0100 |
commit | f13f1e9f6ff111fa676e54090eb62f2a0f066d13 (patch) | |
tree | eb711b308240d4a8c8c9b56f323efad9b6b137b6 | |
parent | fb032fa722d81f575169e3be5623ebb761f28da0 (diff) | |
download | guile-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.test | 32 |
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 |