branch: externals/pyim
commit 6af4f8b74bd03186a0efbf1cd8276b1751b804d4
Author: Feng Shu <tuma...@163.com>
Commit: Feng Shu <tuma...@163.com>
* tests/pyim-tests.el (pyim-test-pyim-schemes): New test.
---
tests/pyim-tests.el | 21 +++++++++++++++++++++
1 file changed, 21 insertions(+)
diff --git a/tests/pyim-tests.el b/tests/pyim-tests.el
index 8cbf17e..a8ed90f 100644
--- a/tests/pyim-tests.el
+++ b/tests/pyim-tests.el
@@ -48,6 +48,27 @@
(pyim-test-add-dict "pyim-basedict.pyim")
(pyim-dcache-init-variables)
+;; ** pyim-schemes 相关单元测试
+(ert-deftest pyim-test-pyim-schemes ()
+ (let ((pyim-default-scheme 'wubi))
+ (should (equal (pyim-scheme-name) 'wubi)))
+
+ (let ((pyim-default-scheme 'wuci))
+ (should (equal (pyim-scheme-name) 'quanpin)))
+
+ (let ((pyim-default-scheme 'wubi)
+ (pyim-assistant-scheme 'cangjie)
+ (pyim-assistant-scheme-enable t))
+ (should (equal (pyim-scheme-name) 'cangjie)))
+
+ (let ((pyim-default-scheme 'wubi)
+ (pyim-assistant-scheme 'cangjie)
+ (pyim-assistant-scheme-enable nil))
+ (should (equal (pyim-scheme-name) 'wubi)))
+
+ (should (equal (pyim-scheme-get-option 'quanpin :class) 'quanpin))
+ (should (equal (pyim-scheme-get-option 'wubi :class) 'xingma)))
+
;; ** pyim-common 相关单元测试
(ert-deftest pyim-test-pyim-permutate-list ()
(should (equal (pyim-permutate-list '((a b) (c d e) (f)))
