[nongnu] elpa/pacmacs 612d7ff1dd 297/472: UT for pacmacs--decrease-terrified-timers (#153)

[ELPA Syncer]

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

    UT for pacmacs--decrease-terrified-timers (#153)
---
 test/pacmacs-test.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/test/pacmacs-test.el b/test/pacmacs-test.el
index b60732262c..4120384e4f 100644
--- a/test/pacmacs-test.el
+++ b/test/pacmacs-test.el
@@ -44,3 +44,13 @@
                          :data [[nil ((:row 0 :column 1))]
                                 [nil nil]])
                    pacmacs--object-board))))
+
+(ert-deftest pacmacs--decrease-terrified-timers-test ()
+  (let ((pacmacs--terrified-ghosts '((:terrified-timer 1000)
+                                     (:terrified-timer 400)))
+        (pacmacs-tick-duration-ms 200)
+        (expected-outcome '((:terrified-timer 800)
+                            (:terrified-timer 200))))
+    (pacmacs--decrease-terrified-timers)
+    (should (equal expected-outcome
+                   pacmacs--terrified-ghosts))))