[nongnu] elpa/pacmacs 2c7e23070b 380/472: Fix put-vertical-bar UT (#138)

[ELPA Syncer]

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

    Fix put-vertical-bar UT (#138)
---
 test/pacmacs-image-test.el | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/test/pacmacs-image-test.el b/test/pacmacs-image-test.el
index 4990428d5a..9b1b29a1da 100644
--- a/test/pacmacs-image-test.el
+++ b/test/pacmacs-image-test.el
@@ -21,15 +21,13 @@
     (should (equal expected-wall-tile input-wall-tile))))
 
 (ert-deftest pacmacs--put-vertical-bar-test ()
-  (let ((input-bits (pacmacs--construct-2d-bool-vector
-                     '((nil nil nil)
-                       (nil nil nil)
-                       (nil nil nil))))
-        (expected-bits (pacmacs--construct-2d-bool-vector
-                        '((t t nil)
-                          (t t nil)
-                          (t t nil)))))
-    (pacmacs--put-vertical-bar input-bits 0 3 2)
+  (let ((input-bits [[nil nil nil]
+                     [nil nil nil]
+                     [nil nil nil]])
+        (expected-bits [[0 1 nil]
+                        [0 1 nil]
+                        [0 1 nil]]))
+    (pacmacs--put-vertical-bar input-bits 0 3 2 #'identity)
     (should (equal (pacmacs--bits-to-lists expected-bits)
                    (pacmacs--bits-to-lists input-bits)))))