; * 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 9fff4255b57fc5abddc1165fbbcc47401c82dd82..b18111ad119991bef75ba7962f2de4ee552c144e 100644 (file)
--- 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