Include test machinery in the new build system.

[sod] / src / sod-test.asd

diff --git a/src/sod-test.asd b/src/sod-test.asd
index 38b5095ee8395f430edff8ead47057bd076e0358..a0a39720bc0fa4aa051e9da14db9f86d5a33db15 100644 (file)
--- 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 --------------------------------------------------