From: Stefan Kangas <stefan@marxist.se>
Date: Sun, 26 Dec 2021 05:55:06 +0000 (+0100)
Subject: Add test for text-char-description
X-Git-Tag: emacs-29.0.90~3447
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6866cf9c375777441c996a0217b8b573657207fb;p=emacs.git

Add test for text-char-description

* test/src/keymap-tests.el (keymap-text-char-description): New
test.
---

diff --git a/test/src/keymap-tests.el b/test/src/keymap-tests.el
index 629d6c55849..bee48351e15 100644
--- a/test/src/keymap-tests.el
+++ b/test/src/keymap-tests.el
@@ -407,6 +407,21 @@ g .. h		foo
     (define-key child [?a] nil t)
     (should (eq (lookup-key child [?a]) 'foo))))
 
+(ert-deftest keymap-text-char-description ()
+  (should (equal (text-char-description ?a) "a"))
+  (should (equal (text-char-description ?\s) " "))
+  (should (equal (text-char-description ?\t) "^I"))
+  (should (equal (text-char-description ?\^C) "^C"))
+  (should (equal (text-char-description ?\^?) "^?"))
+  (should (equal (text-char-description #x80) "€"))
+  (should (equal (text-char-description ?Ã¥) "Ã¥"))
+  (should (equal (text-char-description ?Ş) "Ş"))
+  (should (equal (text-char-description ?Ā) "Ā"))
+  (should-error (text-char-description "c"))
+  (should-error (text-char-description [?\C-x ?l]))
+  (should-error (text-char-description ?\M-c))
+  (should-error (text-char-description ?\s-c)))
+
 (provide 'keymap-tests)
 
 ;;; keymap-tests.el ends here