[nongnu] elpa/pacmacs 98599015bb 229/472: Fix UTs broken by #133 implementation

[ELPA Syncer]

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

    Fix UTs broken by #133 implementation
---
 test/pacmacs-image-test.el | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/test/pacmacs-image-test.el b/test/pacmacs-image-test.el
index a66a00d23c..ae5461e277 100644
--- a/test/pacmacs-image-test.el
+++ b/test/pacmacs-image-test.el
@@ -20,11 +20,19 @@
     (with-mock
      (mock (make-bool-vector height t) => bool-vector-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
-                         :background color) => create-image-result :times 1)
+
+     (if (not pacmacs--flip-xbm-bits)
+         (mock (create-image make-vector-result
+                             'xbm t
+                             :width width :height height
+                             :foreground color
+                             :background nil) => create-image-result :times 1)
+       (mock (create-image make-vector-result
+                           'xbm t
+                           :width width :height height
+                           :foreground nil
+                           :background color) => create-image-result :times 1))
+
      (should (equal create-image-result
                     (pacmacs-create-color-block width height color))))))