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