Mon Apr 6 13:48:20 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Tests on darcs record
diff -rN -u old-smoke/test.lisp new-smoke/test.lisp
--- old-smoke/test.lisp 1970-01-01 01:00:00.000000000 +0100
+++ new-smoke/test.lisp 2014-09-30 10:24:07.000000000 +0200
@@ -0,0 +1,25 @@
+#|
+exec -a "$0" sbcl --noinform --noprint --disable-debugger --load $0 --end-toplevel-options "$@"
+# 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:clean :smoke)
+(mb:test :smoke)
+
+(sb-ext:quit)
diff -rN -u old-smoke/tests/test.lisp new-smoke/tests/test.lisp
--- old-smoke/tests/test.lisp 1970-01-01 01:00:00.000000000 +0100
+++ new-smoke/tests/test.lisp 2014-09-30 10:24:07.000000000 +0200
@@ -0,0 +1,3 @@
+;;; :smoke has no test suite, but since :qt depends on :smoke we can use its.
+
+(mb:test :qt)