mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Revert "Improve manual display tests of undisplayable chars (bug#58168)"

Browse Source 
This reverts commit 849b7756fd.
Please don't rush installing changes that are still being
discussed.
This commit is contained in:
Eli Zaretskii 2022-10-04 19:15:17 +03:00
parent a36ecc408a
commit db6072f530
1 changed files with 10 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
test/manual/redisplay-testsuite.el
View File

@ -305,7 +305,7 @@ static unsigned char x_bits[] = {0xff, 0x81, 0xbd, 0xa5, 0xa5, 0xbd, 0x81, 0xff
(let ((label (if display-raw-bytes-as-hex "\\x80" "\\200"))) (let ((label (if display-raw-bytes-as-hex "\\x80" "\\200")))
(overlay-put test-redisplay-5a-expected-overlay 'display (overlay-put test-redisplay-5a-expected-overlay 'display
(propertize label 'face 'escape-glyph))) (propertize label 'face 'escape-glyph)))
(let ((label (if display-raw-bytes-as-hex "\\xfc" "\\374"))) (let ((label (if display-raw-bytes-as-hex "\\x3fffc" "\\777774")))
(overlay-put test-redisplay-5b-expected-overlay 'display (overlay-put test-redisplay-5b-expected-overlay 'display
(propertize label 'face 'escape-glyph)))) (propertize label 'face 'escape-glyph))))
@ -320,36 +320,18 @@ static unsigned char x_bits[] = {0xff, 0x81, 0xbd, 0xa5, 0xa5, 0xbd, 0x81, 0xff
(test-insert-overlay " " 'display "\200")) (test-insert-overlay " " 'display "\200"))
(insert "\n\n") (insert "\n\n")
(insert " Expected: ") (insert " Expected: ")
(setq test-redisplay-5b-expected-overlay
(test-insert-overlay " " 'display
(propertize "\\374" 'face 'escape-glyph)))
(insert "\n Result: ")
(setq test-redisplay-5b-result-overlay
(test-insert-overlay " " 'display (char-to-string #x3ffffc)))
(insert "\n\n")
(insert-button "Toggle between octal and hex display for raw bytes"
'action 'test-redisplay-5-toggle)
(insert "\n\n"))
(defun test-redisplay-6 ()
(insert "Test 6: Display of unprintable Unicode chars:\n\n")
(insert " Expected: ")
(test-insert-overlay " " 'display
(propertize "\\200" 'face 'escape-glyph))
(insert " (representing U+0100)")
(insert "\n Result: ")
(test-insert-overlay " " 'display "\u0080")
(insert "\n\n")
;; This tests a large codepoint, to make sure the internal buffer we ;; This tests a large codepoint, to make sure the internal buffer we
;; use to produce the representation is large enough. ;; use to produce the representation is large enough.
(insert " Expected: ") (aset printable-chars #x3fffc nil)
(aset printable-chars #x10abcd nil) (setq test-redisplay-5b-expected-overlay
(test-insert-overlay " " 'display (test-insert-overlay " " 'display
(propertize "\\4125715" 'face 'escape-glyph)) (propertize "\\777774" 'face 'escape-glyph)))
(insert " (representing U+0010ABCD)")
(insert "\n Result: ") (insert "\n Result: ")
(test-insert-overlay " " 'display "\U0010ABCD") (setq test-redisplay-5b-result-overlay
(insert "\n\n")) (test-insert-overlay " " 'display (char-to-string #x3fffc)))
(insert "\n\n")
(insert-button "Toggle between octal and hex display"
'action 'test-redisplay-5-toggle))
(defun test-redisplay () (defun test-redisplay ()
(interactive) (interactive)
@ -367,7 +349,6 @@ static unsigned char x_bits[] = {0xff, 0x81, 0xbd, 0xa5, 0xa5, 0xbd, 0x81, 0xff
(test-redisplay-3) (test-redisplay-3)
(test-redisplay-4) (test-redisplay-4)
(test-redisplay-5) (test-redisplay-5)
(test-redisplay-6)
(goto-char (point-min)))) (goto-char (point-min))))
;;; redisplay-testsuite.el ends here ;;; redisplay-testsuite.el ends here