X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-rotate-byte%2Fsb-rotate-byte.asd;h=0451fd847b5929eda98241f932c42cbf0c3f4b90;hb=1bbd405c3c21f93db7aa956946738c8a3f30837d;hp=3adf23b6804b268d8bd1d6dfe8bc92019140ce6e;hpb=cec71f1e4e1ead387f2ea642f760e553b6053f2b;p=sbcl.git

diff --git a/contrib/sb-rotate-byte/sb-rotate-byte.asd b/contrib/sb-rotate-byte/sb-rotate-byte.asd
index 3adf23b..0451fd8 100644
--- a/contrib/sb-rotate-byte/sb-rotate-byte.asd
+++ b/contrib/sb-rotate-byte/sb-rotate-byte.asd
@@ -15,3 +15,7 @@
 			:pathname #.(make-pathname :directory '(:relative))
 			:if-component-dep-fails :ignore)
 	       (:file "rotate-byte" :depends-on ("compiler"))))
+
+(defmethod perform ((o test-op) (c (eql (find-system :sb-rotate-byte))))
+  (or (load (compile-file "rotate-byte-tests.lisp"))
+      (error "test-op failed")))