[nongnu] elpa/pacmacs fb4885d0fc 420/472: Add UT for make-submit-nickname-action func (#134)

[ELPA Syncer]

branch: elpa/pacmacs
commit fb4885d0fcd59761ec33f26d3f623bbcd7cfe181
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    Add UT for make-submit-nickname-action func (#134)
---
 test/pacmacs-test.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/test/pacmacs-test.el b/test/pacmacs-test.el
index 45ec6f90e2..9a011b2048 100644
--- a/test/pacmacs-test.el
+++ b/test/pacmacs-test.el
@@ -132,3 +132,14 @@
         (nickname "abc"))
     (should (equal "abc  "
                    (pacmacs--align-score-record-nickname nickname)))))
+
+(ert-deftest pacmacs--make-submit-nickname-action-test ()
+  (with-mock
+   (mock (widget-value 'widget) => 'nickname)
+   (mock (pacmacs--add-entry-to-score-table 'nickname 'score))
+   (mock (pacmacs--align-score-record-nickname 'nickname) => 'aligned-nickname)
+   (mock (widget-value-set 'widget 'aligned-nickname))
+   (mock (widget-delete 'widget))
+   (funcall (pacmacs--make-submit-nickname-action 'score)
+            'widget
+            'khooy)))