0.7.13.32

[sbcl.git] / contrib / sb-rotate-byte / sb-rotate-byte.asd

diff --git a/contrib/sb-rotate-byte/sb-rotate-byte.asd b/contrib/sb-rotate-byte/sb-rotate-byte.asd
index 3adf23b..0451fd8 100644 (file)
--- 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")))