procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Eli Zaretskii 2025-02-04 14:18:38 +02:00
parent 164da071e0
commit 40e38a681d
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
test/src/editfns-tests.el
View file

@ -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