From 2f7c73a3ac8f0ef4efb8b91e64fc0e1ae1204e96 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 29 Nov 2004 13:10:56 +0000
Subject: [PATCH] Fix the output of several tests (Michael Goffioul)

---
 src/tests/alltest.tst         | 12 ++++++++----
 src/tests/array.tst           |  4 ++--
 src/tests/ecl_chap11_pack.tst |  2 +-
 3 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/src/tests/alltest.tst b/src/tests/alltest.tst
index 69c524f64..c1423d673 100644
--- a/src/tests/alltest.tst
+++ b/src/tests/alltest.tst
@@ -60,6 +60,7 @@ lambda-list-keywords
       #+CLISP (equal s "65536") #+CLISP (equal s "4294967296")
       #+AKCL (equal s "64")
       #+ALLEGRO (equal s "16384")
+      #+ECL (equal s "64")
 ) )
 T
 
@@ -198,7 +199,7 @@ T
 T
 
 (CONSP (ACONS (QUOTE X) (QUOTE Y) (QUOTE A)))
-#+XCL ERROR #+(or CLISP AKCL ALLEGRO) T #-(or XCL CLISP AKCL ALLEGRO) UNKNOWN
+#+XCL ERROR #+(or CLISP AKCL ALLEGRO ECL) T #-(or XCL CLISP AKCL ALLEGRO ECL) UNKNOWN
 
 (LISTP (QUOTE (((A . B) . C))))
 T
@@ -772,7 +773,8 @@ NIL
 #+CLISP "2.0066230454737344098L-19"
 #+AKCL "-4.898425415289509E-16"
 #+ALLEGRO "-4.898425415289509d-16"
-#-(or XCL CLISP AKCL ALLEGRO) UNKNOWN
+#+ECL "-4.898425415289509d-16"
+#-(or XCL CLISP AKCL ALLEGRO ECL) UNKNOWN
 
 (PRIN1-TO-STRING (SIN (EXPT 10 3)) )
 "0.82687956" ; "0.8268796"
@@ -785,7 +787,8 @@ NIL
 #+CLISP "-2.5082788076048218878L-20"
 #+AKCL "6.1230317691118863E-17"
 #+ALLEGRO "6.123031769111886d-17"
-#-(or XCL CLISP AKCL ALLEGRO) UNKNOWN
+#+ECL "6.1230317691118863d-17"
+#-(or XCL CLISP AKCL ALLEGRO ECL) UNKNOWN
 
 (PRIN1-TO-STRING (TAN 1) )
 "1.5574077" ; "1.557408"
@@ -795,7 +798,8 @@ NIL
 #+CLISP "-3.986797629004264116L19"
 #+AKCL "1.6331778728383844E16"
 #+ALLEGRO "1.6331778728383844d+16"
-#-(or XCL CLISP AKCL ALLEGRO) UNKNOWN
+#+ECL "1.6331778728383844d16"
+#-(or XCL CLISP AKCL ALLEGRO ECL) UNKNOWN
 
 (prin1-to-string (CIS -1) )
 "#C(0.5403023 -0.84147096)" ; "#C(0.5403023 -0.8414709)"
diff --git a/src/tests/array.tst b/src/tests/array.tst
index 2816e1611..1888ad90e 100644
--- a/src/tests/array.tst
+++ b/src/tests/array.tst
@@ -137,7 +137,7 @@ T
 (let ((s (prin1-to-string ARRAY-DIMENSION-LIMIT )))
   (or #+XCL (equal s "17920")
       #+AKCL (equal s "16777216") #+GCL (equal s "2147483647")
-      #+ECL (equal s "16777216")
+      #+ECL (equal s #-BOEHM-GC "16777216" #+BOEHM-GC (prin1-to-string most-positive-fixnum))
       #+CLISP (equal s (prin1-to-string (1+ most-positive-fixnum)))
       #+ALLEGRO (equal s "16777216")
       #-(or XCL CLISP AKCL ALLEGRO ECL) "UNKNOWN"
@@ -147,7 +147,7 @@ T
 (let ((s (prin1-to-string ARRAY-TOTAL-SIZE-LIMIT )))
   (or #+XCL (equal s "17920")
       #+AKCL (equal s "16777216")
-      #+ECL (equal s "16777216")
+      #+ECL (equal s #-BOEHM-GC "16777216" #+BOEHM-GC (prin1-to-string most-positive-fixnum))
       #+CLISP (equal s (prin1-to-string (1+ most-positive-fixnum)))
       #+ALLEGRO (equal s "16777216")
       #-(or XCL CLISP AKCL ALLEGRO ECL) "UNKNOWN"
diff --git a/src/tests/ecl_chap11_pack.tst b/src/tests/ecl_chap11_pack.tst
index d1ca89464..d67725711 100644
--- a/src/tests/ecl_chap11_pack.tst
+++ b/src/tests/ecl_chap11_pack.tst
@@ -494,7 +494,7 @@ nil
 ; modules | provide | (require nicht getestet !)
 
 (and *modules* T)
-#+(or ECL XCL) T #+CLISP NIL #-(or ECL XCL CLISP) UNKNOWN
+#+XCL T #+(or CLISP ECL) NIL #-(or ECL XCL CLISP) UNKNOWN
 
 (and (provide 'provide-test) t)
 t