X-Git-Url: http://git.kpe.io/?p=xlunit.git;a=blobdiff_plain;f=xlunit.asd;h=d79d9e9802f9a71c471ddf37e92da84c46013c2c;hp=30ca6f74ff389857e64e1436bea3f2750810a598;hb=HEAD;hpb=34803ef0f0a02430b51382e7684f6d775d135953

diff --git a/xlunit.asd b/xlunit.asd
index 30ca6f7..d79d9e9 100644
--- 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$
 ;;;; *************************************************************************
 
 (defpackage #:xlunit-system (:use #:asdf #:cl))
@@ -17,23 +17,40 @@
   :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."
+
+  :properties ((#:author-email . "kevin@rosenberg.net")
+	       ((#:albert #:output-dir) . "albert-docs/")
+	       ((#:albert #:formats) . ("docbook"))
+	       ((#:albert #:docbook #:template) . "book")
+	       ((#:albert #:docbook #:bgcolor) . "white")
+	       ((#:albert #:docbook #:textcolor) . "black"))
   
+  :serial t
   :components
   ((:file "package")
-   (:file "src" :depends-on ("package"))))
+   (:file "assert")
+   (:file "tcase")
+   (:file "listener")
+   (:file "result")
+   (:file "suite")
+   (:file "textui")
+   (:file "printer")
+   ))
 
 (defmethod perform ((o test-op) (c (eql (find-system 'xlunit))))
-  (oos 'load-op 'xlunit-tests)
-  (oos 'test-op 'xlunit-tests))
+  (operate 'load-op 'xlunit-tests)
+  (operate '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)))
+  (operate 'load-op 'xlunit-tests)
+  (or (funcall (intern (symbol-name '#:do-tests)
+		       (find-package '#:xlunit-tests)))
       (error "test-op failed")))
+