[nongnu] elpa/pacmacs 7714743aa8 103/472: UTs for pacmacs--track-point (#75)

[ELPA Syncer]

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

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

diff --git a/test/pacmacs-test.el b/test/pacmacs-test.el
index 6dc813f469..24639df13f 100644
--- a/test/pacmacs-test.el
+++ b/test/pacmacs-test.el
@@ -38,3 +38,17 @@
                               ['left 'right]]))
     (should (not (pacmacs--cell-tracked-p 0 0)))
     (should (pacmacs--cell-tracked-p 1 0))))
+
+(ert-deftest pacmacs--track-point-test ()
+  (let ((pacmacs-board-width 2)
+        (pacmacs-board-height 2)
+        (pacmacs-track-board [[nil nil]
+                              [nil nil]]))
+    (pacmacs--track-point (cons 0 0) (cons 0 1))
+    (should (equal [[right nil]
+                    [nil nil]]
+                   pacmacs-track-board))
+    (pacmacs--track-point (cons 1 0) (cons 1 -1))
+    (should (equal [[right nil]
+                    [left nil]]
+                   pacmacs-track-board))))