From 505a80c9759d8dedfac0511efb67bf603579dd52 Mon Sep 17 00:00:00 2001
From: Douglas Katzman <dougk@google.com>
Date: Tue, 29 Jun 2021 22:51:42 -0400
Subject: [PATCH] Change regexp to be a skosh more liberal

so that if *DEFAULT-PATHNAME-DEFAULTS* is #P"" as it should be,
we can match "good.lisp" having no directory component.
---
 tests/compiler.test.sh | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/tests/compiler.test.sh b/tests/compiler.test.sh
index 3f482028a..7bb358c9b 100644
--- a/tests/compiler.test.sh
+++ b/tests/compiler.test.sh
@@ -23,15 +23,17 @@ use_test_subdirectory
 mkdir -p inscrutable/f00
 echo '(defun zook (x) (declare (integer x)) (length x))' > inscrutable/f00/f00_xyz_bad
 ln -s inscrutable/f00/f00_xyz_bad good.lisp
-run_sbcl --eval '(compile-file "good.lisp" :verbose t)' --quit >stdout.out 2>stderr.out
-egrep -q 'compiling file ".+good' stdout.out
+run_sbcl --eval '(setq *default-pathname-defaults* #P"")' \
+  --eval '(compile-file "good.lisp" :verbose t)' --quit >stdout.out 2>stderr.out
+egrep -q 'compiling file ".*good' stdout.out
 stdout_ok=$?
 egrep -q 'file:.+good' stderr.out
 stderr_ok=$?
-rm -r good.* stdout.out stderr.out inscrutable
 if [ $stdout_ok = 0 -a $stderr_ok = 0 ] ; then
+    rm -r good.* stdout.out stderr.out inscrutable
     echo "untruenames: PASS"
 else
+    cat stdout.out stderr.out
     echo "untruenames: FAIL"
     exit $EXIT_LOSE
 fi