[nongnu] elpa/pacmacs 1e29c2f943 101/472: UTs for pacmacs--cell-tracked-p (#75)

[ELPA Syncer]

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

    UTs for pacmacs--cell-tracked-p (#75)
---
 test/pacmacs-test.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/test/pacmacs-test.el b/test/pacmacs-test.el
index a8a17974d0..6dc813f469 100644
--- a/test/pacmacs-test.el
+++ b/test/pacmacs-test.el
@@ -30,3 +30,11 @@
     (should (not (pacmacs--object-at-p 0 1 objects)))
     (should (pacmacs--object-at-p 0 5 objects))
     (should (not (pacmacs--object-at-p 1 5 objects)))))
+
+(ert-deftest pacmacs--cell-tracked-p-test ()
+  (let ((pacmacs-board-width 2)
+        (pacmacs-board-height 2)
+        (pacmacs-track-board [[nil nil]
+                              ['left 'right]]))
+    (should (not (pacmacs--cell-tracked-p 0 0)))
+    (should (pacmacs--cell-tracked-p 1 0))))