[nongnu] elpa/pacmacs 1ed7f14e30 099/472: UTs for pacmacs--init-board-test (#75)

[ELPA Syncer]

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

    UTs for pacmacs--init-board-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 00bb02fa3d..c0a4b2b4a1 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -133,7 +133,7 @@
         :speed 0
         :speed-counter 0))
 
-(defun pacmacs-init-board (width height)
+(defun pacmacs--init-board (width height)
   (let ((board (make-vector height nil)))
     (dotimes (row height)
       (aset board row (make-vector width nil)))
@@ -394,10 +394,10 @@
     (setq pacmacs-board-width board-width)
     (setq pacmacs-board-height board-height)
 
-    (setq pacmacs-board (pacmacs-init-board pacmacs-board-width
-                                            pacmacs-board-height))
-    (setq pacmacs-track-board (pacmacs-init-board pacmacs-board-width
-                                                  pacmacs-board-height))
+    (setq pacmacs-board (pacmacs--init-board pacmacs-board-width
+                                             pacmacs-board-height))
+    (setq pacmacs-track-board (pacmacs--init-board pacmacs-board-width
+                                                   pacmacs-board-height))
 
     (setq pacmacs-wall-cells nil)
     (setq pacmacs-pills nil)
diff --git a/test/pacmacs-test.el b/test/pacmacs-test.el
index df56500e22..1c18aa2316 100644
--- a/test/pacmacs-test.el
+++ b/test/pacmacs-test.el
@@ -7,3 +7,14 @@
     (pacmacs--fill-board input-board 2 2 5)
     (should (equal expected-board
                    input-board))))
+
+
+(ert-deftest pacmacs--init-board-test ()
+  (let ((width 5)
+        (height 4)
+        (expected-board [[nil nil nil nil nil]
+                         [nil nil nil nil nil]
+                         [nil nil nil nil nil]
+                         [nil nil nil nil nil]]))
+    (should (equal expected-board
+                   (pacmacs--init-board width height)))))