[nongnu] elpa/pacmacs e618da968d 279/472: Add UT for pacmacs--sort-score-table

[ELPA Syncer]

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

    Add UT for pacmacs--sort-score-table
---
 test/pacmacs-score-test.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/test/pacmacs-score-test.el b/test/pacmacs-score-test.el
new file mode 100644
index 0000000000..8709677946
--- /dev/null
+++ b/test/pacmacs-score-test.el
@@ -0,0 +1,11 @@
+(ert-deftest pacmacs--sort-score-table-test ()
+  (let ((input-table '(("hello" . 30)
+                       ("world" . 20)
+                       ("foo" . 40)
+                       ("bar" . 10)))
+        (expected-table '(("foo" . 40)
+                          ("hello" . 30)
+                          ("world" . 20)
+                          ("bar" . 10))))
+    (should (equal expected-table
+                   (pacmacs--sort-score-table input-table)))))