branch: elpa/pacmacs
commit 91408c074d077c4f44cefccc4a0b535fa7b65d17
Author: rexim <[email protected]>
Commit: rexim <[email protected]>
Refactor pacmacs--track-object (#74)
---
pacmacs.el | 2 +-
test/pacmacs-test.el | 8 ++++----
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/pacmacs.el b/pacmacs.el
index 2d32750991..31ed6f7b22 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -238,7 +238,7 @@
(plist-bind ((row :row)
(column :column))
game-object
- (let ((direction (aref (aref pacmacs-track-board row) column)))
+ (let ((direction (pacmacs--cell-get pacmacs-track-board row column)))
(pacmacs--switch-direction game-object direction))))
(defun pacmacs-tick ()
diff --git a/test/pacmacs-test.el b/test/pacmacs-test.el
index bf0f1f514d..a86d1a316d 100644
--- a/test/pacmacs-test.el
+++ b/test/pacmacs-test.el
@@ -22,10 +22,10 @@
(plist-get pacmacs-track-board :data)))))
(ert-deftest pacmacs--track-object-test ()
- (let ((pacmacs-board-width 2)
- (pacmacs-board-height 2)
- (pacmacs-track-board [[right down]
- [up left]])
+ (let ((pacmacs-track-board (list :width 2
+ :height 2
+ :data [[right down]
+ [up left]]))
(game-object (list :row 0
:column 0)))
(with-mock
