X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-cover%2Fsb-cover.asd;h=a920712a183e5b3cf0b3bd42ad9a2f0d91abaae6;hb=25c1769e30ff7404b52a9be663626d87f8ff75bc;hp=e98dee2353c649d98be266977bea542bbeeaca22;hpb=d6db469884468ef1cbe41fdad328eda5fb9934a4;p=sbcl.git

diff --git a/contrib/sb-cover/sb-cover.asd b/contrib/sb-cover/sb-cover.asd
index e98dee2..a920712 100644
--- a/contrib/sb-cover/sb-cover.asd
+++ b/contrib/sb-cover/sb-cover.asd
@@ -1,17 +1,16 @@
 ;;; -*-  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))