branch: elpa/pacmacs
commit 3f7bf5c2828d9bd00bab84c535c0765016408378
Author: rexim <[email protected]>
Commit: rexim <[email protected]>
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))))
