Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
15
Issues
15
List
Boards
Labels
Service Desk
Milestones
Merge Requests
9
Merge Requests
9
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
asdf
asdf
Commits
c38c94c6
Commit
c38c94c6
authored
Feb 04, 2010
by
Robert P. Goldman
Committed by
Francois-Rene Rideau
Feb 04, 2010
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Signed-off-by:
Francois-Rene Rideau
<
fare@tunes.org
>
parent
b6a06201
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
44 additions
and
8 deletions
+44
-8
test/run-tests.sh
test/run-tests.sh
+33
-7
test/script-support.lisp
test/script-support.lisp
+11
-1
No files found.
test/run-tests.sh
View file @
c38c94c6
...
@@ -6,15 +6,29 @@
...
@@ -6,15 +6,29 @@
# - quit with exit status >0 if an unhandled error occurs
# - quit with exit status >0 if an unhandled error occurs
export
CL_SOURCE_REGISTRY
=
"
$PWD
"
export
CL_SOURCE_REGISTRY
=
"
$PWD
"
export
ASDF_DEBUG
=
while
getopts
"duh"
OPTION
do
case
OPTION
in
d
)
ASDF_DEBUG
=
1
;;
u
)
usage
exit
1
;;
h
)
usage
exit
1
;;
esac
done
shift
$((
$OPTIND
-
1
))
if
[
x
"
$1
"
=
"xhelp"
]
;
then
if
[
x
"
$1
"
=
"xhelp"
]
;
then
echo
"
$0
[lisp invocation] [scripts-regex]"
usage
echo
" - read lisp forms one at a time from matching scripts"
exit
1
echo
" - quit with exit status 0 on getting eof"
echo
" - quit with exit status >0 if an unhandled error occurs"
echo
" you need to supply the .script in the second argument"
echo
" lisps include sbcl, clisp, allegro and allegromodern"
exit
-1
fi
fi
if
[
-z
"
$2
"
]
;
then
if
[
-z
"
$2
"
]
;
then
...
@@ -25,6 +39,18 @@ fi
...
@@ -25,6 +39,18 @@ fi
sok
=
1
sok
=
1
usage
()
{
echo
"
$0
[lisp invocation] [scripts-regex]"
echo
" - read lisp forms one at a time from matching scripts"
echo
" - quit with exit status 0 on getting eof"
echo
" - quit with exit status >0 if an unhandled error occurs"
echo
" you need to supply the .script in the second argument"
echo
" lisps include sbcl, clisp, allegro and allegromodern"
echo
"OPTIONS:"
echo
" -d -- debug mode"
echo
" -u -h -- show this message."
}
do_tests
()
{
do_tests
()
{
command
=
$1
eval
=
$2
fasl_ext
=
$3
command
=
$1
eval
=
$2
fasl_ext
=
$3
rm
-f
*
.
$fasl_ext
~/.cache/common-lisp/
"
`
pwd
`
"
/
*
.
$fasl_ext
||
true
rm
-f
*
.
$fasl_ext
~/.cache/common-lisp/
"
`
pwd
`
"
/
*
.
$fasl_ext
||
true
...
...
test/script-support.lisp
View file @
c38c94c6
...
@@ -24,13 +24,23 @@
...
@@ -24,13 +24,23 @@
(
ccl::quit
return
)
(
ccl::quit
return
)
#+
sbcl
#+
sbcl
(
sb-ext:quit
:unix-status
return
)
(
sb-ext:quit
:unix-status
return
)
(
error
"Don't know how to quit Lisp; wanting to use exit code ~a"
return
))
(
error
"Don't know how to quit Lisp; wanting to use exit code ~a"
return
))
(
defparameter
*asdf-test-debug*
(
test-getenv
"ASDF_DEBUG"
)
"Global variable initialized from ASDF_DEBUG environment variable.
Controls whether errors are muffled and dumped to the shell."
)
(
defmacro
quit-on-error
(
&body
body
)
(
defmacro
quit-on-error
(
&body
body
)
`
(
call-quitting-on-error
(
lambda
()
,@
body
)))
`
(
call-quitting-on-error
(
lambda
()
,@
body
)))
(
defun
call-quitting-on-error
(
thunk
)
(
defun
call-quitting-on-error
(
thunk
)
"Unless the global *asdf-test-debug* is true,
write a message and exit on an error. If
*asdf-test-debug* is true, enter the debugger
as normal."
(
handler-case
(
handler-case
(
progn
(
funcall
thunk
)
(
progn
(
funcall
thunk
)
(
leave-lisp
"~&Script succeeded~%"
0
))
(
leave-lisp
"~&Script succeeded~%"
0
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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