test.lisp
Sun Dec 13 13:43:58 CET 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Support ASDF instead of Mudballs.
--- old-smoke/test.lisp 2014-10-30 08:09:51.000000000 +0100
+++ new-smoke/test.lisp 2014-10-30 08:09:51.000000000 +0100
@@ -15,29 +15,11 @@
################"
ccl --batch --quiet --load $0 || exit 3
exit 0
-# do not use --script to allow loading mudballs with ${HOME}/.sbclrc
# Used for testing on darcs record.
|#
-
-(in-package :sysdef-user)
-
-(defun load-sysdef (pathname system)
- (load pathname)
- (setf (mb.sysdef::pathname-of (find-system system)) pathname))
-
-(defun load-sysdef-file (system-name)
- "Loads a mbd file in the current directory."
- (load-sysdef (make-pathname :defaults *default-pathname-defaults*
- :name (string-downcase system-name)
- :type "mbd")
- system-name))
-
-(load-sysdef-file :smoke)
-;(mb:load :FiveAm)
-;(setf 5am:*debug-on-failure* t)
-;(setf 5am:*debug-on-error* t)
-(mb:test :smoke)
+(asdf:operate 'asdf:load-op :smoke)
+(asdf:operate 'asdf:test-op :smoke)
#+sbcl (sb-ext:quit)
#+ccl (ccl:quit)