X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=contrib%2Fsb-rotate-byte%2Fsb-rotate-byte.asd;fp=contrib%2Fsb-rotate-byte%2Fsb-rotate-byte.asd;h=0451fd847b5929eda98241f932c42cbf0c3f4b90;hb=93c941d86b264637de20aa1b713757b704d4c1a6;hp=3adf23b6804b268d8bd1d6dfe8bc92019140ce6e;hpb=0739c3692a3da5a8096662a0893c905be69bc12a;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")))