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