X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-cover%2Ftests.lisp;h=7903b80db47922d65967baf2efa8f06f9f7d9355;hb=a01e7ac2e8a9f3afae8f759381a0829fceb5bfde;hp=6fb3d9a4006c6a8cadd48fc88e178b1f0f9b269e;hpb=49e92ee57b3b01f5862d0c6fa65f521de1688941;p=sbcl.git

diff --git a/contrib/sb-cover/tests.lisp b/contrib/sb-cover/tests.lisp
index 6fb3d9a..7903b80 100644
--- a/contrib/sb-cover/tests.lisp
+++ b/contrib/sb-cover/tests.lisp
@@ -92,3 +92,9 @@
 ;; Complete branch coverage
 (assert (= (sb-cover::ok-of (getf sb-cover::*counts* :branch))
            (sb-cover::all-of (getf sb-cover::*counts* :branch))))
+
+;; Check for presence of constant coalescing bugs
+
+(load (compile-file (merge-pathnames #p"test-data-3.lisp" *path*)))
+(test-2)
+