[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 6866cf9c37: Add test for text-char-description
From: |
Stefan Kangas |
Subject: |
master 6866cf9c37: Add test for text-char-description |
Date: |
Sun, 26 Dec 2021 00:56:13 -0500 (EST) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 6866cf9c37: Add test for text-char-description,
Stefan Kangas <=