branch: elpa/pacmacs
commit e618da968df77c0f99c1d8adf121d33b537ef80f
Author: rexim <[email protected]>
Commit: rexim <[email protected]>
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)))))
