master 6866cf9c37: Add test for text-char-description

[Stefan Kangas]

branch: master
commit 6866cf9c375777441c996a0217b8b573657207fb
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Add test for text-char-description
    
    * test/src/keymap-tests.el (keymap-text-char-description): New
    test.
---
 test/src/keymap-tests.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/test/src/keymap-tests.el b/test/src/keymap-tests.el
index 629d6c5584..bee48351e1 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