[nongnu] elpa/pacmacs 09aa49c6b0 065/472: UTs for pacman-image. Close #52

[ELPA Syncer]

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

    UTs for pacman-image. Close #52
---
 test/pacman-anim-test.el  |  4 ----
 test/pacman-image-test.el | 42 ++++++++++++++++++++++++++++++++++++++++++
 test/test-helper.el       |  3 +++
 3 files changed, 45 insertions(+), 4 deletions(-)

diff --git a/test/pacman-anim-test.el b/test/pacman-anim-test.el
index c69c007fbf..09ea407a75 100644
--- a/test/pacman-anim-test.el
+++ b/test/pacman-anim-test.el
@@ -1,7 +1,3 @@
-(require 'cl)                           ;el-mock doesn't work without
-                                        ;this
-(require 'json)
-
 (ert-deftest pacman-make-anim-test ()
   (should (equal (list :frames (list 1 2 3 4 5)
                        :current-frame 0
diff --git a/test/pacman-image-test.el b/test/pacman-image-test.el
new file mode 100644
index 0000000000..829ee061c3
--- /dev/null
+++ b/test/pacman-image-test.el
@@ -0,0 +1,42 @@
+(ert-deftest pacman-load-image-test ()
+  (let ((default-directory "/khooy/"))
+    (with-mock
+     (mock (create-image "/khooy/pew" 'xpm nil :heuristic-mask t) => 42 :times 
1)
+     (should (= 42 (pacman-load-image "pew"))))))
+
+(ert-deftest pacman-insert-image-test ()
+  (let ((resource "khooy")
+        (resource-vector "pew"))
+    (with-mock
+     (mock (insert-image resource " " nil resource-vector) => 42 :times 1)
+     (should (= 42 (pacman-insert-image resource resource-vector))))))
+
+(ert-deftest pacman-create-color-block-test ()
+  (let ((width 10)
+        (height 20)
+        (color "red")
+        (bool-vector-result 42)
+        (make-vector-result 43)
+        (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)
+     (should (equal create-image-result
+                    (pacman-create-color-block width height color))))))
+
+(ert-deftest pacman-create-transparent-block ()
+  (let ((width 10)
+        (height 20)
+        (bool-vector-result 42)
+        (make-vector-result 43)
+        (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)
+     (should (equal create-image-result
+                    (pacman-create-transparent-block width height))))))
diff --git a/test/test-helper.el b/test/test-helper.el
index 5bbb97b706..3cf0400ea4 100644
--- a/test/test-helper.el
+++ b/test/test-helper.el
@@ -1,3 +1,5 @@
+(require 'cl)                           ;el-mock doesn't work without
+                                        ;this
 (require 'el-mock)
 (require 'undercover)
 
@@ -5,3 +7,4 @@
 
 (add-to-list 'load-path ".")
 (load "pacman-anim.el")
+(load "pacman-image.el")