r5449: *** empty log message ***

[xlunit.git] / xlunit.asd

diff --git a/xlunit.asd b/xlunit.asd
index 30ca6f74ff389857e64e1436bea3f2750810a598..9cd8bdba2138243763c0cf8ac7efd712c92e301e 100644 (file)
--- a/xlunit.asd
+++ b/xlunit.asd
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2003
 ;;;;
-;;;; $Id: xlunit.asd,v 1.1 2003/08/04 09:51:36 kevin Exp $
+;;;; $Id: xlunit.asd,v 1.2 2003/08/04 12:01:54 kevin Exp $
 ;;;; *************************************************************************
 
 (defpackage #:xlunit-system (:use #:asdf #:cl))
@@ -17,23 +17,29 @@
   :name "xlunit"
   :author "Kevin Rosenberg based on work by Craig Brozensky"
   :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
-  :licence "Public domain"
+  :licence "BSD"
   :description "Extreme Lisp Testing Suite"
-  :long-description "The XLUNIT package is toolkit for building test suites based on the XPTEST package by Craig Brozensky."
+  :long-description "The XLUnit package is toolkit for building test suites. It is based on the XPTest package by Craig Brozensky and the JUnit package by Kent Beck."
   
+  :serial t
   :components
   ((:file "package")
-   (:file "src" :depends-on ("package"))))
+   (:file "assert")
+   (:file "fixture")
+   (:file "suite")
+   (:file "result")
+   (:file "printer")
+   ))
 
 (defmethod perform ((o test-op) (c (eql (find-system 'xlunit))))
-  (oos 'load-op 'xlunit-tests)
-  (oos 'test-op 'xlunit-tests))
+  (oos 'load-op 'xlunit-tests :force t)
+  (oos 'test-op 'xlunit-tests :force t))
 
 (defsystem xlunit-tests
-  :depends-on (xlunit)
-  :components ((:file "tests")))
+    :depends-on (xlunit)
+    :components ((:file "tests")))
 
 (defmethod perform ((o test-op) (c (eql (find-system 'xlunit-tests))))
-  (or (funcall (intern (symbol-name #:do-tests)
-                      (find-package #:xlunit-tests)))
+  (or (funcall (intern (symbol-name '#:do-tests)
+                      (find-package '#:xlunit-tests)))
       (error "test-op failed")))