[elpa] externals/pyim 6af4f8b 2/2: * tests/pyim-tests.el (pyim-test-pyim-schemes): New test.

[ELPA Syncer]

branch: externals/pyim
commit 6af4f8b74bd03186a0efbf1cd8276b1751b804d4
Author: Feng Shu <tumashu@163.com>
Commit: Feng Shu <tumashu@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)))