;;; -*- Lisp -*-
(defsystem sb-cover
- #+sb-building-contrib :pathname
- #+sb-building-contrib #p"SYS:CONTRIB;SB-COVER;"
- :depends-on (sb-md5)
- :components ((:file "cover")))
+ #+sb-building-contrib :pathname
+ #+sb-building-contrib #p"SYS:CONTRIB;SB-COVER;"
+ :depends-on (sb-md5)
+ :components ((:file "cover"))
+ :perform (load-op :after (o c) (provide 'sb-cover))
+ :perform (test-op :after (o c) (test-system 'sb-cover/tests)))
-(defsystem sb-cover-tests
- :components ((:file "tests")))
+(defsystem sb-cover/tests
+ #+sb-building-contrib :pathname
+ #+sb-building-contrib #p"SYS:CONTRIB;SB-COVER;"
+ :depends-on (sb-cover asdf)
+ :components ((:file "tests")))
-(defmethod perform :after ((o load-op) (c (eql (find-system :sb-cover))))
- (provide 'sb-cover))
-
-(defmethod perform ((o test-op) (c (eql (find-system :sb-cover))))
- (operate 'load-op 'sb-cover-tests)
- (operate 'test-op 'sb-cover-tests))