From: Glenn Morris <rgm@gnu.org>
Date: Wed, 8 Mar 2017 19:43:16 +0000 (-0500)
Subject: Update a cl-print test
X-Git-Tag: emacs-26.0.90~608
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de610c4b678e4634e20baa2afee7d8c921e1e3fc;p=emacs.git

Update a cl-print test

* test/lisp/emacs-lisp/cl-print-tests.el (cl-print-tests-1):
Update for recent change in cl-print-object function output.
---

diff --git a/test/lisp/emacs-lisp/cl-print-tests.el b/test/lisp/emacs-lisp/cl-print-tests.el
index cbc79b0e64a..f46ecde0319 100644
--- a/test/lisp/emacs-lisp/cl-print-tests.el
+++ b/test/lisp/emacs-lisp/cl-print-tests.el
@@ -34,7 +34,7 @@
     (let ((print-circle t))
       (should (equal (cl-prin1-to-string `((x . ,x) (y . ,x)))
                      "((x . #1=#s(cl-print--test :a 1 :b 2)) (y . #1#))")))
-    (should (string-match "\\`#<compiled-function (x) .*>\\'"
+    (should (string-match "\\`#f(compiled-function (x) .*)\\'"
                           (cl-prin1-to-string (symbol-function #'caar))))))
 
 ;;; cl-print-tests.el ends here.