;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2003
;;;;
-;;;; $Id: xlunit.asd,v 1.5 2003/08/04 19:31:34 kevin Exp $
+;;;; $Id: xlunit.asd,v 1.6 2003/08/05 22:56:25 kevin Exp $
;;;; *************************************************************************
(defpackage #:xlunit-system (:use #:asdf #:cl))
))
(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")))
+