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