[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 2d58e0e: Add some char-table tests
From: |
Stefan Kangas |
Subject: |
master 2d58e0e: Add some char-table tests |
Date: |
Wed, 30 Dec 2020 01:33:05 -0500 (EST) |
branch: master
commit 2d58e0e803fb5fe397d446d58a0d83f0d35b4fc4
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Add some char-table tests
* test/src/chartab-tests.el (chartab-test-char-table-p)
(chartab-test-char-table-subtype)
(chartab-test-char-table-parent)
(chartab-test-char-table-extra-slot): New tests.
---
test/src/chartab-tests.el | 20 ++++++++++++++++++++
1 file changed, 20 insertions(+)
diff --git a/test/src/chartab-tests.el b/test/src/chartab-tests.el
index 4d52dc3..0a8d8bc 100644
--- a/test/src/chartab-tests.el
+++ b/test/src/chartab-tests.el
@@ -49,5 +49,25 @@
(#xe0e00 . #xe0ef6)
)))
+(ert-deftest chartab-test-char-table-p ()
+ (should (char-table-p (make-char-table 'foo)))
+ (should (not (char-table-p (make-hash-table)))))
+
+(ert-deftest chartab-test-char-table-subtype ()
+ (should (eq (char-table-subtype (make-char-table 'foo)) 'foo)))
+
+(ert-deftest chartab-test-char-table-parent ()
+ (should (eq (char-table-parent (make-char-table 'foo)) nil))
+ (let ((parent (make-char-table 'foo))
+ (child (make-char-table 'bar)))
+ (set-char-table-parent child parent)
+ (should (eq (char-table-parent child) parent))))
+
+(ert-deftest chartab-test-char-table-extra-slot ()
+ ;; Use any type with extra slots, e.g. 'case-table.
+ (let ((tbl (make-char-table 'case-table)))
+ (set-char-table-extra-slot tbl 1 'bar)
+ (char-table-extra-slot tbl 1)))
+
(provide 'chartab-tests)
;;; chartab-tests.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 2d58e0e: Add some char-table tests,
Stefan Kangas <=