[nongnu] elpa/pacmacs 5cb14f20fd 301/472: UT for pacmacs--replace-game-objects (#153)

[ELPA Syncer]

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

    UT for pacmacs--replace-game-objects (#153)
---
 test/pacmacs-test.el | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/test/pacmacs-test.el b/test/pacmacs-test.el
index 3852eca864..2575314fe9 100644
--- a/test/pacmacs-test.el
+++ b/test/pacmacs-test.el
@@ -66,3 +66,27 @@
     (should (equal (pacmacs--run-away-direction runner bogey
                                                 blocked-tile-predicate)
                    'left))))
+
+(ert-deftest pacmacs--replace-game-objects-test ()
+  (let* ((game-objects '((:row 10 :column 20)
+                         (:row 30 :column 40)))
+         (replaced-objects nil)
+         (destroyed-objects nil)
+         (new-constructor (-lambda (row column)
+                            (setq replaced-objects
+                                  (cons (list :row (1+ row)
+                                              :column (1+ column))
+                                        replaced-objects))))
+         (old-destructor (-lambda (game-object)
+                           (setq destroyed-objects (cons game-object
+                                                         destroyed-objects)))))
+    (pacmacs--replace-game-objects game-objects new-constructor old-destructor)
+    (should (equal '((:row 10 :column 20)
+                     (:row 30 :column 40))
+                   game-objects))
+    (should (equal '((:row 31 :column 41)
+                     (:row 11 :column 21))
+                   replaced-objects))
+    (should (equal '((:row 30 :column 40)
+                     (:row 10 :column 20))
+                   destroyed-objects))))