[nongnu] elpa/pacmacs 5233bac0c5 105/472: UT for pacmacs--put-object-test (#75)

[ELPA Syncer]

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

    UT for pacmacs--put-object-test (#75)
---
 pacmacs.el           | 10 +++++-----
 test/pacmacs-test.el | 11 +++++++++++
 2 files changed, 16 insertions(+), 5 deletions(-)

diff --git a/pacmacs.el b/pacmacs.el
index 2cfc65dc51..e07687df1d 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -309,7 +309,7 @@
          (current-frame (plist-get (pacmacs-anim-get-frame anim) :frame)))
     (pacmacs-insert-image sprite-sheet current-frame)))
 
-(defun pacmacs-put-object (anim-object)
+(defun pacmacs--put-object (anim-object)
   (plist-bind ((row :row)
                (column :column))
       anim-object
@@ -345,16 +345,16 @@
                        pacmacs-board-height
                        (pacmacs--make-empty-cell))
 
-  (pacmacs-put-object pacmacs-player-state)
+  (pacmacs--put-object pacmacs-player-state)
 
   (dolist (pill pacmacs-pills)
-    (pacmacs-put-object pill))
+    (pacmacs--put-object pill))
 
   (dolist (ghost pacmacs-ghosts)
-    (pacmacs-put-object ghost))
+    (pacmacs--put-object ghost))
   
   (dolist (wall pacmacs-wall-cells)
-    (pacmacs-put-object wall))
+    (pacmacs--put-object wall))
 
   (dotimes (row pacmacs-board-height)
     (dotimes (column pacmacs-board-width)
diff --git a/test/pacmacs-test.el b/test/pacmacs-test.el
index a3926d809f..4e02b4299f 100644
--- a/test/pacmacs-test.el
+++ b/test/pacmacs-test.el
@@ -63,3 +63,14 @@
     (with-mock
      (mock (pacmacs--switch-direction (list :row 0 :column 0) 'right) :times 1)
      (pacmacs--track-object game-object))))
+
+(ert-deftest pacmacs--put-object-test ()
+  (let ((pacmacs-board-width 2)
+        (pacmacs-board-height 2)
+        (pacmacs-board [[nil nil]
+                        [nil nil]])
+        (anim-object (list :row 0 :column 1)))
+    (pacmacs--put-object anim-object)
+    (should (equal [[nil (:row 0 :column 1)]
+                    [nil nil]]
+                   pacmacs-board))))