Add UT for position-of-new-score func (#134)

codingteam · Jan 4, 2016 · 75f7ddd · 75f7ddd
1 parent d6260cd
commit 75f7ddd
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/test/pacmacs-score-test.el b/test/pacmacs-score-test.el
@@ -25,3 +25,11 @@
       (pacmacs--render-score-table input-table)
       (should (equal expected-string
                      (buffer-string))))))
+
+(ert-deftest pacmacs--position-of-new-score-test ()
+  (let ((score-table '(("hello" . 40)
+                       ("world" . 30)
+                       ("foo" . 20)
+                       ("bar" . 10)))
+        (new-score 25))
+    (should (= 2 (pacmacs--position-of-new-score score-table new-score)))))