;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2003
;;;;
-;;;; $Id: xlunit.asd,v 1.4 2003/08/04 17:04:50 kevin Exp $
+;;;; $Id: xlunit.asd,v 1.6 2003/08/05 22:56:25 kevin Exp $
;;;; *************************************************************************
(defpackage #:xlunit-system (:use #:asdf #:cl))
((:file "package")
(:file "assert")
(:file "tcase")
- (:file "suite")
(: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 :force t)
+ (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")))
+