[nongnu] elpa/pacmacs 01388a06a0 104/472: UTs for pacmacs--track-object (#75)

[ELPA Syncer]

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

    UTs for pacmacs--track-object (#75)
---
 test/pacmacs-test.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/test/pacmacs-test.el b/test/pacmacs-test.el
index 24639df13f..a3926d809f 100644
--- a/test/pacmacs-test.el
+++ b/test/pacmacs-test.el
@@ -52,3 +52,14 @@
     (should (equal [[right nil]
                     [left nil]]
                    pacmacs-track-board))))
+
+(ert-deftest pacmacs--track-object-test ()
+  (let ((pacmacs-board-width 2)
+        (pacmacs-board-height 2)
+        (pacmacs-track-board [[right down]
+                              [up left]])
+        (game-object (list :row 0
+                           :column 0)))
+    (with-mock
+     (mock (pacmacs--switch-direction (list :row 0 :column 0) 'right) :times 1)
+     (pacmacs--track-object game-object))))