projects
/
xlunit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5461: *** empty log message ***
[xlunit.git]
/
xlunit.asd
diff --git
a/xlunit.asd
b/xlunit.asd
index c7f293af20e0faba8ba17b02fe01833ffb6388be..a3f5e27b2ac603ae84f4161693385ba6b7bc3f86 100644
(file)
--- a/
xlunit.asd
+++ b/
xlunit.asd
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2003
;;;;
;;;; 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))
;;;; *************************************************************************
(defpackage #:xlunit-system (:use #:asdf #:cl))
@@
-34,14
+34,16
@@
))
(defmethod perform ((o test-op) (c (eql (find-system 'xlunit))))
))
(defmethod perform ((o test-op) (c (eql (find-system 'xlunit))))
- (o
os
'load-op 'xlunit-tests :force t)
- (o
os
'test-op 'xlunit-tests :force t))
+ (o
perate
'load-op 'xlunit-tests :force t)
+ (o
perate
'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))))
(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")))
(or (funcall (intern (symbol-name '#:do-tests)
(find-package '#:xlunit-tests)))
(error "test-op failed")))
+