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