Commit 029ebf87 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Tweak some tests for ABCL.

Hush autoloading in clean-load test.
Better exit message for old ABCLs in test-encodings.
parent 56c3c16e
...@@ -360,13 +360,14 @@ test_clean_load () { ...@@ -360,13 +360,14 @@ test_clean_load () {
case $lisp in case $lisp in
gcl|cmucl) return 0 ;; # These are hopeless gcl|cmucl) return 0 ;; # These are hopeless
esac esac
mkdir -p build/results
nop=build/results/${lisp}-nop.text nop=build/results/${lisp}-nop.text
load=build/results/${lisp}-load.text load=build/results/${lisp}-load.text
${cmd} ${eval} \ ${cmd} ${eval} \
'(or #.(load "test/script-support.lisp" :verbose nil :print nil) #.(asdf-test::exit-lisp 0))' \ '(or #.(load "test/script-support.lisp" :verbose nil :print nil) #.(asdf-test::exit-lisp 0))' \
> $nop 2>&1 > $nop 2>&1
${cmd} ${eval} \ ${cmd} ${eval} \
'(or #.(load "test/script-support.lisp" :verbose nil :print nil) #.(load "build/asdf.lisp" :verbose nil) #.(asdf/image:quit 0))' \ '(or #.(load "test/script-support.lisp" :verbose nil :print nil) #.(asdf-test::verbose nil) #.(load "build/asdf.lisp" :verbose nil) #.(asdf/image:quit 0))' \
> $load 2>&1 > $load 2>&1
if diff $nop $load ; then if diff $nop $load ; then
echo "GOOD: Loading ASDF on $lisp produces no message" >&2 ; return 0 echo "GOOD: Loading ASDF on $lisp produces no message" >&2 ; return 0
......
...@@ -41,7 +41,7 @@ ...@@ -41,7 +41,7 @@
#+abcl #+abcl
(when (version< (lisp-implementation-version) "1.1.2") (when (version< (lisp-implementation-version) "1.1.2")
(leave-test "Older ABCL's are known to fail these tests." 0)) (leave-test "Your old ABCL is known to fail this test script, so skipping it." 0))
(with-encoding-test (:utf-8) (with-encoding-test (:utf-8)
(def-test-system :test-encoding-explicit-u8 (def-test-system :test-encoding-explicit-u8
......
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