From 02c1bee5562dd8a013484aa65baa8b301ed0f547 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Sat, 27 Feb 2010 19:11:58 -0500
Subject: [PATCH] Don't bork silently but error out loudly, when lisp is not
 found or not supported.

---
 test/run-tests.sh | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/test/run-tests.sh b/test/run-tests.sh
index a170ec7b..837f55a6 100755
--- a/test/run-tests.sh
+++ b/test/run-tests.sh
@@ -99,6 +99,7 @@ if [ -z $1 ] ; then
     lisp="sbcl"
 fi
 
+command=
 case "$lisp" in
   sbcl)
     if type sbcl ; then
@@ -161,12 +162,21 @@ case "$lisp" in
   lispworks)
     if type lispworks ; then
 	fasl_ext="ofasl"
-	command=`which ecl`
+	command=`which lispworks`
 	command="$command -siteinit - -init -"
         eval="-eval"
     fi ;;
+  *)
+    echo "Unsupported lisp: $1" >&2
+    echo "Please add support to run-tests.sh" >&2
+    exit 42 ;;
 esac
 
+if [ -z "$command" ] ; then
+    echo "lisp implementation not found: $1" >&2
+    exit 43
+fi
+
 if [ -z "${DEBUG_ASDF_TEST}" ] ; then
   command="$command $nodebug"
 fi
-- 
GitLab