Update domain name to kpe.io

[xlunit.git] / xlunit.asd

diff --git a/xlunit.asd b/xlunit.asd
index 9cd8bdba2138243763c0cf8ac7efd712c92e301e..d79d9e9802f9a71c471ddf37e92da84c46013c2c 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.2 2003/08/04 12:01:54 kevin Exp $
+;;;; $Id$
 ;;;; *************************************************************************
 
 (defpackage #:xlunit-system (:use #:asdf #:cl))
@@ -20,26 +20,37 @@
   :licence "BSD"
   :description "Extreme Lisp Testing Suite"
   :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 "assert")
-   (:file "fixture")
-   (:file "suite")
+   (: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 :force t)
-  (oos 'test-op 'xlunit-tests :force t))
+  (operate 'load-op 'xlunit-tests)
+  (operate 'test-op 'xlunit-tests :force t))
 
 (defsystem xlunit-tests
     :depends-on (xlunit)
     :components ((:file "tests")))
 
 (defmethod perform ((o test-op) (c (eql (find-system 'xlunit-tests))))
+  (operate 'load-op 'xlunit-tests)
   (or (funcall (intern (symbol-name '#:do-tests)
                       (find-package '#:xlunit-tests)))
       (error "test-op failed")))
+