[nongnu] elpa/pacmacs 4679fcef60 381/472: Fix put-horizontal-bar UT (#138)

[ELPA Syncer]

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

    Fix put-horizontal-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 9b1b29a1da..bc334715b7 100644
--- a/test/pacmacs-image-test.el
+++ b/test/pacmacs-image-test.el
@@ -32,15 +32,13 @@
                    (pacmacs--bits-to-lists input-bits)))))
 
 (ert-deftest pacmacs--put-horizontal-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   t)
-                          (t   t   t)
-                          (nil nil nil)))))
-    (pacmacs--put-horizontal-bar input-bits 0 3 2)
+  (let ((input-bits [[nil nil nil]
+                     [nil nil nil]
+                     [nil nil nil]])
+        (expected-bits [[0   0   0]
+                        [1   1   1]
+                        [nil nil nil]]))
+    (pacmacs--put-horizontal-bar input-bits 0 3 2 #'identity)
     (should (equal (pacmacs--bits-to-lists expected-bits)
                    (pacmacs--bits-to-lists input-bits)))))