[nongnu] elpa/pacmacs ad201e341a 271/472: Add UT for pacmacs--bits-to-xpm

[ELPA Syncer]

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

    Add UT for pacmacs--bits-to-xpm
---
 test/pacmacs-image-test.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/test/pacmacs-image-test.el b/test/pacmacs-image-test.el
index 70661797d4..a7bcd9d3a3 100644
--- a/test/pacmacs-image-test.el
+++ b/test/pacmacs-image-test.el
@@ -73,3 +73,16 @@
                                4 4))
    (pacmacs--create-wall-tile 4 4 t t nil nil
                               nil nil nil nil)))
+
+(ert-deftest pacmacs--bits-to-xpm-test ()
+  (should (string= (concat "/* XPM */\n"
+                           "static char *tile[] = {\n"
+                           "/**/\n\"2 2 2 1\",\n"
+                           "\"  c None\",\n"
+                           "\". c #5555ff\",\n"
+                           "/* pixels */\n"
+                           "\"..\",\n"
+                           "\"  \"\n};")
+                   (pacmacs--bits-to-xpm [[t t]
+                                          [nil nil]]
+                                         2 2))))