From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 4 Feb 2025 12:18:38 +0000 (+0200)
Subject: ; * test/src/editfns-tests.el (editfns-tests-styled-print): New test.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=889c57231499641f4f798f6557ab9aeb30bfaae8;p=emacs.git

; * test/src/editfns-tests.el (editfns-tests-styled-print): New test.

(cherry picked from commit 40e38a681dafb02f71d741338e9c3c5ff99c734e)
---

diff --git a/test/src/editfns-tests.el b/test/src/editfns-tests.el
index 9fff4255b57..b18111ad119 100644
--- a/test/src/editfns-tests.el
+++ b/test/src/editfns-tests.el
@@ -534,4 +534,15 @@
                             'utf-8 nil (current-buffer))
       (should (null (sanity-check-change-functions-errors))))))
 
+(ert-deftest editfns-tests-styled-print ()
+  "Test bug#75754."
+  :expected-result :failed
+   (let* ((print-unreadable-function
+          (lambda (&rest _args)
+             (garbage-collect)
+             (make-string 100 ?Ā t)))
+          (str "\"[1] ĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀ\""))
+     (should (string= (format "%S" (format "%S %S" [1] (symbol-function '+)))
+                      str))))
+
 ;;; editfns-tests.el ends here