[nongnu] elpa/pacmacs 43cc1205c6 066/472: Try to fix pacman-image UTs after #52

[ELPA Syncer]

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

    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))))))