Commit d20ea551 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Improve testing with Allegro or with a filesystem w/o symlinks (thanks to Dave Cooper)

parent 4edd524e
......@@ -141,11 +141,18 @@ do_tests () {
fi
}
#
# not used currently but leave here for future reference.
#
case $(uname) in
CYGWIN*) os=windows ;;
*) os=unix ;;
Darwin) os=macos ;;
Linux) os=linux ;;
*) os=unknown ;;
esac
# terminate on error
set -e
......@@ -156,29 +163,16 @@ case "$lisp" in
flags="--noinit --nosystem --noinform"
eval="--eval"
;;
allegro)
command="${ALLEGRO:-alisp}"
flags="-q"
nodebug="-batch"
if [ "$os" = windows ] ; then bcmd="$command +c $flags" ; fi
eval="-e" ;;
allegro8)
command="${ALLEGRO8:-alisp8}"
flags="-q"
nodebug="-batch"
if [ "$os" = windows ] ; then bcmd="$command +c $flags" ; fi
eval="-e" ;;
allegromodern)
command="${ALLEGROMODERN:-mlisp}"
if [ "$os" = windows ] ; then bcmd="$command +c $flags" ; fi
flags="-q"
nodebug="-batch"
eval="-e" ;;
allegromodern8)
command="${ALLEGROMODERN8:-mlisp8}"
if [ "$os" = windows ] ; then bcmd="$command +c $flags" ; fi
allegro|allegro8|allegromodern|allegromodern8)
case "$lisp" in
allegro) command="${ALLEGRO:-alisp}" ;;
allegro8) command="${ALLEGRO8:-alisp8}" ;;
allegromodern) command="${ALLEGROMODERN:-mlisp}" ;;
allegromodern8) command="${ALLEGROMODERN8:-mlisp8}" ;;
esac
flags="-q"
nodebug="-batch"
if [ "$os" = windows ] && [ -z "$ALLEGRO_NOISY" ] ; then bcmd="$command +c $flags" ; fi
eval="-e" ;;
ccl)
command="${CCL:-ccl}"
......
......@@ -9,11 +9,15 @@
;; Don't rely on ln -s on Windows
(cond
((os-unix-p)
(run-program
(format nil "ln -sf ~A ~A"
(native-namestring asd)
(native-namestring asd2)))
(oos 'load-source-op 'test-multiple-too))
(multiple-value-bind (output error-output return-code)
(uiop:run-program
(format nil "ln -sf ~A ~A"
(native-namestring asd)
(native-namestring asd2)) :ignore-error-status t)
(declare (ignore output error-output))
(oos 'load-source-op (if (zerop return-code)
'test-multiple-too
'test-multiple))))
(t
(oos 'load-source-op 'test-multiple)))
(assert (asymval :*file3* :test-package))
......
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