Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
9d4f1b24
Commit
9d4f1b24
authored
Feb 28, 2002
by
Daniel Barlow
Browse files
test with both available implementations without having to edit this
file. patches for other CL implementations gratefully accepted
parent
7265988e
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/run-tests.sh
View file @
9d4f1b24
#!/bin/sh
# This needs to
# - read lisp forms one at a time from standard input
# - quit with exit status 0 on getting eof
# - quit with exit status >0 if an unhandled error occurs
#LISP="/usr/local/bin/lisp -batch "
LISP
=
"sbcl --noprogrammer"
# file extension that $LISP uses for compiled files
FASL
=
fasl
#FASL=axpf
rm
*
.
$FASL
||
true
function
do_tests
{
rm
*
.
$2
||
true
(
cd
..
&&
echo
'(compile-file "asdf")'
|
$1
)
for
i
in
*
.script
;
do
rm
*
.
$
FASL
||
true
if
$
LISP
<
$i
;
then
echo
"
$i
passed"
rm
*
.
$
2
||
true
if
$
1
<
$i
;
then
echo
"
Using
$1
,
$i
passed"
>
&2
else
echo
"
$i
failed"
echo
"
Using
$1
,
$i
failed"
>
&2
exit
1
fi
done
echo
"All tests apparently successful"
echo
"Using
$1
, all tests apparently successful"
>
&2
}
# do_tests {lisp invocation} {fasl extension}
# - read lisp forms one at a time from standard input
# - quit with exit status 0 on getting eof
# - quit with exit status >0 if an unhandled error occurs
set
-e
if
type
sbcl
then
do_tests
"sbcl --noprogrammer"
fasl
fi
if
[
-x
/usr/local/bin/lisp
]
then
do_tests
"/usr/local/bin/lisp -batch"
axpf
fi
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment