[nongnu] elpa/pacmacs 3f7bf5c282 192/472: Fix board UTs

[ELPA Syncer]

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

    Fix board UTs
---
 pacmacs.el           |  2 +-
 test/pacmacs-test.el | 38 +++++++++++++++++++-------------------
 2 files changed, 20 insertions(+), 20 deletions(-)

diff --git a/pacmacs.el b/pacmacs.el
index 6c1afdbb80..bbc5b2fca2 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -416,7 +416,7 @@
       (insert (format "Score: %d\n\n" pacmacs-score))
 
       (when pacmacs-debug-output
-        (pacmacs--render-track-board pacmacs-track-board))
+        (pacmacs--render-track-board pacmacs--track-buffer))
 
       (pacmacs--fill-board pacmacs--render-buffer nil)
 
diff --git a/test/pacmacs-test.el b/test/pacmacs-test.el
index e27a3af2e1..f700afdf97 100644
--- a/test/pacmacs-test.el
+++ b/test/pacmacs-test.el
@@ -1,31 +1,31 @@
 
 (ert-deftest pacmacs--cell-tracked-p-test ()
-  (let ((pacmacs-track-board (list :width 2
-                                   :height 2
-                                   :data [[nil nil]
-                                          ['left 'right]])))
+  (let ((pacmacs--track-buffer (list :width 2
+                                     :height 2
+                                     :data [[nil nil]
+                                            ['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-track-board (list :width 2
-                                   :height 2
-                                   :data [[nil nil]
-                                          [nil nil]])))
+  (let ((pacmacs--track-buffer (list :width 2
+                                     :height 2
+                                     :data [[nil nil]
+                                            [nil nil]])))
     (pacmacs--track-point (cons 0 0) (cons 0 1))
     (should (equal [[right nil]
                     [nil nil]]
-                   (plist-get pacmacs-track-board :data)))
+                   (plist-get pacmacs--track-buffer :data)))
     (pacmacs--track-point (cons 1 0) (cons 1 -1))
     (should (equal [[right nil]
                     [left nil]]
-                   (plist-get pacmacs-track-board :data)))))
+                   (plist-get pacmacs--track-buffer :data)))))
 
 (ert-deftest pacmacs--track-object-test ()
-  (let ((pacmacs-track-board (list :width 2
-                                   :height 2
-                                   :data [[right down]
-                                          [up left]]))
+  (let ((pacmacs--track-buffer (list :width 2
+                                     :height 2
+                                     :data [[right down]
+                                            [up left]]))
         (game-object (list :row 0
                            :column 0)))
     (with-mock
@@ -33,14 +33,14 @@
      (pacmacs--track-object game-object))))
 
 (ert-deftest pacmacs--put-object-test ()
-  (let ((pacmacs-board (list :width 2
-                             :height 2
-                             :data [[nil nil]
-                                    [nil nil]]))
+  (let ((pacmacs--render-buffer (list :width 2
+                                      :height 2
+                                      :data [[nil nil]
+                                             [nil nil]]))
         (anim-object (list :row 0 :column 1)))
     (pacmacs--put-object anim-object)
     (should (equal (list :width 2
                          :height 2
                          :data [[nil (:row 0 :column 1)]
                                 [nil nil]])
-                   pacmacs-board))))
+                   pacmacs--render-buffer))))