Commit 56c3c16e authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Tweak two tests, for CLISP, ABCL.

parent c2554ba0
......@@ -36,15 +36,16 @@
(eval `(assert-equal (string-char-codes ,*lambda-string*)
(expected-char-codes ',',encoding))))))
(with-encoding-test (:utf-8)
(def-test-system :test-encoding-explicit-u8
:components ((:file "lambda" :encoding :utf-8))))
#-asdf-unicode
(leave-test "No Unicode support to test on this lisp implementation" 0)
#+abcl
(leave-test "abcl is known to fail these tests. Go update asdf-encodings" 0)
(when (version< (lisp-implementation-version) "1.1.2")
(leave-test "Older ABCL's are known to fail these tests." 0))
(with-encoding-test (:utf-8)
(def-test-system :test-encoding-explicit-u8
:components ((:file "lambda" :encoding :utf-8))))
;; NB: recent clozure can autodetect without asdf-encodings with :default (!)
......
......@@ -8,10 +8,10 @@
(DBG "should load file1 but not file2")
;;; Use REQUIRE where we boast integration, load-system where not.
#+(or abcl clisp clozure cmu ecl mkcl sbcl)
(require :test3)
#-(or abcl clisp clozure cmu ecl mkcl sbcl)
(load-system :test3)
(if (or #+(or abcl clozure cmu ecl mkcl sbcl) t
#+clisp (find-symbol* '#:*module-provider-functions* :custom nil))
(funcall 'require :test3)
(load-system :test3))
(assert (probe-file *fasl1*))
(assert (not (probe-file *fasl2*)))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment