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

tests: adjust files

Browse source 
Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
This commit is contained in:
Daniel Kochmański 2015-09-02 09:33:16 +02:00
parent 1d8fb039fa
commit ee77d6a1a9
3 changed files with 41 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

43
src/tests/bugs/doit.lsp
View file

@ -29,48 +29,23 @@
(load "universe.lsp")
(load "ansi-aux.lsp")
(load "test-ansi.lsp")
(load "sf262--declaim-type-foo-setf-foo.lsp")
(load "sf272--style-warning-argument-order.lsp")
(load "sf276--write-hash-readably.lsp")
(load "sf282--mvb-not-evaled.lsp")
(load "sf286.lsp")
(load "cl-001.lsp")
(load "mixed.lsp")
(load "int-001.lsp")
(load "tests/test-ansi.lsp")
(load "tests/mixed.lsp")
(load "tests/compiler.lsp")
#-ecl-bytecmp
(load "cmp-001.lsp")
(progn
(load "tests/embedding.lsp")
#+ffi (load "tests/foreign-interface.lsp"))
#+clos
(progn
(load "mop-001.lsp")
(load "mop-dispatch.lsp")
(load "mop-dependents.lsp"))
#+(and ffi (not ecl-bytecmp))
(load "ffi-001.lsp")
(load "tests/metaobject-protocol.lsp")
#+threads
(progn
(load "mp-tools.lsp")
(load "mp-001.lsp")
(load "mutex-001.lsp")
(load "mailbox-001.lsp")
)
(load "tests/multiprocessing.lsp")
#+unicode
(progn
;; In Windows SYSTEM does not fail with a nonzero code when it
;; fails to execute a command. Hence in that case we assume
;; we simply can not run these tests
#-msvc
(when (zerop (si::system "iconv -l >/dev/null 2>&1"))
(load "eformat-002.lsp"))
(load "eformat-001.lsp"))
(load "tests/external-formats.lsp")
;; (setf sb-rt::*expected-failures*
;; (nconc sb-rt::*expected-failures*

1
src/tests/bugs/tests/compiler.lsp
View file

@ -979,6 +979,7 @@
;;; of a mismatch between the position of the fields bytecodes.entry
;;; and cfun.entry
;;;
#-ecl-bytcmp
(deftest compiler.0041.bytecodes-entry-position
(let ((indices (funcall (compile nil
'(lambda ()

57
src/tests/bugs/tests/external-formats.lsp
View file

@ -301,37 +301,42 @@ about each individual comparison if VERBOSE is true."
;;; Test external formats by transcoding random sequences of characters using
;;; ECL and iconv.
;;;
(deftest external-format.simple-iconv-check
(loop for name in '(:ISO-8859-1 :ISO-8859-2 :ISO-8859-3 :ISO-8859-4
:ISO-8859-5 :ISO-8859-6 :ISO-8859-7 :ISO-8859-8
:ISO-8859-9 :ISO-8859-10 :ISO-8859-11 :ISO-8859-13
:ISO-8859-14 :ISO-8859-15 :ISO-8859-16
#-msvc
;; In Windows SYSTEM does not fail with a nonzero code when it
;; fails to execute a command. Hence in that case we assume
;; we simply can not run these tests
(when (zerop (si::system "iconv -l >/dev/null 2>&1"))
(deftest external-format.simple-iconv-check
(loop for name in '(:ISO-8859-1 :ISO-8859-2 :ISO-8859-3 :ISO-8859-4
:ISO-8859-5 :ISO-8859-6 :ISO-8859-7 :ISO-8859-8
:ISO-8859-9 :ISO-8859-10 :ISO-8859-11 :ISO-8859-13
:ISO-8859-14 :ISO-8859-15 :ISO-8859-16
:KOI8-R :KOI8-U
:KOI8-R :KOI8-U
:IBM437 :IBM850 :IBM852 :IBM855 :IBM857 :IBM860
:IBM861 :IBM862 :IBM863 :IBM864 :IBM865 :IBM866
:IBM869
:IBM437 :IBM850 :IBM852 :IBM855 :IBM857 :IBM860
:IBM861 :IBM862 :IBM863 :IBM864 :IBM865 :IBM866
:IBM869
:CP936 :CP949 :CP950
:CP936 :CP949 :CP950
:WINDOWS-1250 :WINDOWS-1251 :WINDOWS-1252 :WINDOWS-1253
:WINDOWS-1254 :WINDOWS-1256 :WINDOWS-1257
:WINDOWS-1250 :WINDOWS-1251 :WINDOWS-1252 :WINDOWS-1253
:WINDOWS-1254 :WINDOWS-1256 :WINDOWS-1257
;; :CP932 :WINDOWS-1255 :WINDOWS-1258 with
;; iconv may output combined characters, when ECL would
;; output the base and the comibining one. Hence, no simple
;; comparison is possible.
;; :CP932 :WINDOWS-1255 :WINDOWS-1258 with
;; iconv may output combined characters, when ECL would
;; output the base and the comibining one. Hence, no simple
;; comparison is possible.
:ISO-2022-JP
;; :ISO-2022-JP-1
;; iconv doesn't support ISO-2022-JP-1 (hue hue hue)
)
unless (progn
(format t "~%;;; Testing ~A " name)
(loop for i from 1 to 10
always (test-output name (symbol-name name))))
collect name)
nil)
:ISO-2022-JP
;; :ISO-2022-JP-1
;; iconv doesn't support ISO-2022-JP-1 (hue hue hue)
)
unless (progn
(format t "~%;;; Testing ~A " name)
(loop for i from 1 to 10
always (test-output name (symbol-name name))))
collect name)
nil))