common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Change regexp to be a skosh more liberal

Browse source 
so that if *DEFAULT-PATHNAME-DEFAULTS* is #P"" as it should be,
we can match "good.lisp" having no directory component.
This commit is contained in:
Douglas Katzman 2021-06-29 22:51:42 -04:00
parent 894d5fab13
commit 505a80c975
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tests/compiler.test.sh
View file

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