mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-06 09:20:40 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fix the output of several tests (Michael Goffioul)

Browse source
This commit is contained in:
jjgarcia 2004-11-29 13:10:56 +00:00
parent 6c53cff251
commit 2f7c73a3ac
3 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/tests/alltest.tst
View file

@ -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)"

4
src/tests/array.tst
View file

@ -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"

2
src/tests/ecl_chap11_pack.tst
View file

@ -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