[nongnu] elpa/pacmacs 689c09287c 423/472: Add UT for step-ghosts func

[ELPA Syncer]

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

    Add UT for step-ghosts func
---
 test/pacmacs-test.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/test/pacmacs-test.el b/test/pacmacs-test.el
index c7df9bc062..697fcb2c0c 100644
--- a/test/pacmacs-test.el
+++ b/test/pacmacs-test.el
@@ -150,3 +150,10 @@
                        :column 20
                        :type 'wall)
                  (pacmacs--make-wall-cell 10 20))))
+
+(ert-deftest pacmacs--step-ghosts-test ()
+  (let ((pacmacs--ghosts (make-list 10 'ghost)))
+    (with-mock
+     (mock (pacmacs--track-object-to-player 'ghost) :times 10)
+     (mock (pacmacs--step-object 'ghost) :times 10)
+     (pacmacs--step-ghosts))))