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

Tweak two tests, for CLISP, ABCL.

parent c2554ba0
...@@ -36,15 +36,16 @@ ...@@ -36,15 +36,16 @@
(eval `(assert-equal (string-char-codes ,*lambda-string*) (eval `(assert-equal (string-char-codes ,*lambda-string*)
(expected-char-codes ',',encoding)))))) (expected-char-codes ',',encoding))))))
(with-encoding-test (:utf-8)
(def-test-system :test-encoding-explicit-u8
:components ((:file "lambda" :encoding :utf-8))))
#-asdf-unicode #-asdf-unicode
(leave-test "No Unicode support to test on this lisp implementation" 0) (leave-test "No Unicode support to test on this lisp implementation" 0)
#+abcl #+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 (!) ;; NB: recent clozure can autodetect without asdf-encodings with :default (!)
......
...@@ -8,10 +8,10 @@ ...@@ -8,10 +8,10 @@
(DBG "should load file1 but not file2") (DBG "should load file1 but not file2")
;;; Use REQUIRE where we boast integration, load-system where not. ;;; Use REQUIRE where we boast integration, load-system where not.
#+(or abcl clisp clozure cmu ecl mkcl sbcl) (if (or #+(or abcl clozure cmu ecl mkcl sbcl) t
(require :test3) #+clisp (find-symbol* '#:*module-provider-functions* :custom nil))
#-(or abcl clisp clozure cmu ecl mkcl sbcl) (funcall 'require :test3)
(load-system :test3) (load-system :test3))
(assert (probe-file *fasl1*)) (assert (probe-file *fasl1*))
(assert (not (probe-file *fasl2*))) (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