diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2025-01-24 10:26:26 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2025-01-24 10:26:26 +0200 |
| commit | c941b94e51f4e5996718416ac908249cb71da1d9 (patch) | |
| tree | 05fcec718fca4b716f76d92ee96dd14938e91996 /test/src | |
| parent | 15315780ae36cc2af6e276165562dc793334c2f9 (diff) | |
| download | emacs-c941b94e51f4e5996718416ac908249cb71da1d9.tar.gz emacs-c941b94e51f4e5996718416ac908249cb71da1d9.tar.bz2 emacs-c941b94e51f4e5996718416ac908249cb71da1d9.zip | |
; * src/dispnew.c (combine_updates_for_frame): Fix whitespace.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/editfns-tests.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test/src/editfns-tests.el b/test/src/editfns-tests.el index 9fff4255b57..6da3c73f001 100644 --- a/test/src/editfns-tests.el +++ b/test/src/editfns-tests.el @@ -534,4 +534,14 @@ 'utf-8 nil (current-buffer)) (should (null (sanity-check-change-functions-errors)))))) +(ert-deftest editfns-tests-styled-print () + (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 |