repos
/
qt.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Make unit tests work & run tests on darcs record
Annotate for file test.lisp
2009-04-06 tobias
1
#|
11:50:14 '
2
exec -a "$0" sbcl --noinform --noprint --disable-debugger --load $0 --end-toplevel-options "$@"
'
3
# do not use --script to allow loading mudballs with ${HOME}/.sbclrc
'
4
# Used for testing on darcs record.
'
5
|#
'
6
'
7
'
8
(in-package :sysdef-user)
'
9
'
10
(defun load-sysdef (pathname system)
'
11
(load pathname)
'
12
(setf (mb.sysdef::pathname-of (find-system system)) pathname))
'
13
'
14
(defun load-sysdef-file (system-name)
'
15
"Loads a mbd file in the current directory."
'
16
(load-sysdef (make-pathname :defaults *default-pathname-defaults*
'
17
:name (string-downcase system-name)
'
18
:type "mbd")
'
19
system-name))
'
20
'
21
(load-sysdef-file :qt.tests)
'
22
(mb:clean :qt.tests)
'
23
(mb:test :qt.tests)
'
24
'
25
(sb-ext:quit)