[nongnu] elpa/pacmacs 17a82dffec 205/472: Add UT for object-type-at-p

[ELPA Syncer]

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

    Add UT for object-type-at-p
---
 test/pacmacs-board-test.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/test/pacmacs-board-test.el b/test/pacmacs-board-test.el
index 9eabe6e059..0073949847 100644
--- a/test/pacmacs-board-test.el
+++ b/test/pacmacs-board-test.el
@@ -42,6 +42,20 @@
     (should (pacmacs--object-at-p board 0 5 objects))
     (should (not (pacmacs--object-at-p board 1 5 objects)))))
 
+(ert-deftest pacmacs--object-type-at-p-test ()
+  (let ((board (pacmacs--make-board 5 4)))
+    (dotimes (i 4)
+      (pacmacs--cell-wrapped-set
+       board i i
+       (list (list :row i
+                   :column i
+                   :type 'khooy))))
+
+    (should (pacmacs--object-type-at-p board 0 0 'khooy))
+    (should (not (pacmacs--object-type-at-p board 0 1 'khooy)))
+    (should (pacmacs--object-type-at-p board 0 5 'khooy))
+    (should (not (pacmacs--object-type-at-p board 1 5 'khooy)))))
+
 (ert-deftest pacmacs--step-point-test ()
   (let ((board (list :width 3
                      :height 2))