X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/aa14a4cddcb96b681d5c19a2ec8bad382f43b264..fca95fc163b7bc6448aa37e1fec96f1d9d2c68cf:/src/sod-test.asd

diff --git a/src/sod-test.asd b/src/sod-test.asd
index 38b5095..a0a3972 100644
--- a/src/sod-test.asd
+++ b/src/sod-test.asd
@@ -63,15 +63,11 @@
 ;;; Testing.
 
 (defmethod perform ((op test-op) (system (eql (find-system "sod-test"))))
-  (operate 'load-op system)
-  (funcall (find-symbol "RUN-TESTS" "SOD-TEST")))
-
-;;;--------------------------------------------------------------------------
-;;; Hacks.
-
-(defmethod perform :around
-    ((op compile-op) (component (eql (find-system "sod-test"))))
-  (let ((*compile-file-failure-behaviour* :warn))
-    (call-next-method)))
+  (handler-bind (((or warning style-warning)
+		  (lambda (cond)
+		    (declare (ignore cond))
+		    (invoke-restart 'muffle-warning))))
+    (operate 'load-op system)
+    (funcall (find-symbol "RUN-TESTS" "SOD-TEST"))))
 
 ;;;----- That's all, folks --------------------------------------------------