[nongnu] elpa/pacmacs 80f25498d6 270/472: Add initial UT for pacmacs--create-wall-tile

[ELPA Syncer]

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

    Add initial UT for pacmacs--create-wall-tile
---
 test/pacmacs-image-test.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/test/pacmacs-image-test.el b/test/pacmacs-image-test.el
index 1fa7bba3d8..70661797d4 100644
--- a/test/pacmacs-image-test.el
+++ b/test/pacmacs-image-test.el
@@ -59,3 +59,17 @@
       (-lambda ((bit-list . number))
         (should (= number (pacmacs--bit-list-to-integer
                            bit-list)))))))
+
+(ert-deftest pacmacs--create-wall-tile-test ()
+  (with-mock
+   (mock (pacmacs--bit-list-to-integer *) => 0)
+   (mock (gethash * *) => nil)
+   (mock (puthash * * *) => nil)
+   (mock (create-image * * *) => nil)
+   (mock (pacmacs--bits-to-xpm [[nil t   t   t]
+                                [t   t   t   t]
+                                [t   t   t   t]
+                                [t   t   t   t]]
+                               4 4))
+   (pacmacs--create-wall-tile 4 4 t t nil nil
+                              nil nil nil nil)))