branch: elpa/pacmacs
commit 43cc1205c68ffc456bf0e96dbcfee2af5e54bec2
Author: rexim <[email protected]>
Commit: rexim <[email protected]>
Try to fix pacman-image UTs after #52
---
test/pacman-image-test.el | 17 ++++++++++-------
1 file changed, 10 insertions(+), 7 deletions(-)
diff --git a/test/pacman-image-test.el b/test/pacman-image-test.el
index 829ee061c3..6064ee35ff 100644
--- a/test/pacman-image-test.el
+++ b/test/pacman-image-test.el
@@ -20,10 +20,11 @@
(create-image-result 44))
(with-mock
(mock (make-bool-vector height t) => bool-vector-result :times 1)
- (mock (make-vector width bool-vector-result 'xbm t
- :width width :height height
- :foreground color) => make-vector-result :times 1)
- (mock (create-image make-vector-result) => create-image-result :times 1)
+ (mock (make-vector width bool-vector-result) => make-vector-result :times
1)
+ (mock (create-image make-vector-result
+ 'xbm t
+ :width width :height height
+ :foreground color) => create-image-result :times 1)
(should (equal create-image-result
(pacman-create-color-block width height color))))))
@@ -35,8 +36,10 @@
(create-image-result 44))
(with-mock
(mock (make-bool-vector height nil) => bool-vector-result :times 1)
- (mock (make-vector width bool-vector-result 'xbm t
- :width width :height height) => make-vector-result
:times 1)
- (mock (create-image make-vector-result) => create-image-result :times 1)
+ (mock (make-vector width bool-vector-result) => make-vector-result :times
1)
+ (mock (create-image make-vector-result
+ 'xbm t
+ :width width
+ :height height) => create-image-result :times 1)
(should (equal create-image-result
(pacman-create-transparent-block width height))))))
