4 #+sb-building-contrib :pathname
5 #+sb-building-contrib "SYS:CONTRIB;SB-COVER;"
7 :components ((:file "cover")))
9 (defsystem sb-cover-tests
10 :components ((:file "tests")))
12 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-cover))))
15 (defmethod perform ((o test-op) (c (eql (find-system :sb-cover))))
16 (operate 'load-op 'sb-cover-tests)
17 (operate 'test-op 'sb-cover-tests))