[nongnu] elpa/pacmacs a5583b6255 377/472: Fix wall-tile-to-xpm UT (#138)

[ELPA Syncer]

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

    Fix wall-tile-to-xpm UT (#138)
---
 test/pacmacs-image-test.el | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/test/pacmacs-image-test.el b/test/pacmacs-image-test.el
index fe000e8720..be4c331067 100644
--- a/test/pacmacs-image-test.el
+++ b/test/pacmacs-image-test.el
@@ -77,15 +77,18 @@
 (ert-deftest pacmacs--wall-tile-to-xpm-test ()
   (should (string= (concat "/* XPM */\n"
                            "static char *tile[] = {\n"
-                           "/**/\n\"2 2 2 1\",\n"
+                           "/**/\n\"2 2 3 1\",\n"
                            "\"  c None\",\n"
-                           "\". c #5555ff\",\n"
+                           "\"a c #khooy1\",\n"
+                           "\"b c #khooy2\",\n"
                            "/* pixels */\n"
-                           "\"..\",\n"
-                           "\"  \"\n};")
-                   (pacmacs--bits-to-xpm [[t t]
-                                          [nil nil]]
-                                         2 2))))
+                           "\"ab\",\n"
+                           "\"b \"\n};")
+                   (pacmacs--wall-tile-to-xpm [[0 1]
+                                               [1 nil]]
+                                              2 2
+                                              '("#khooy1"
+                                                "#khooy2")))))
 
 (ert-deftest pacmacs--normalize-wall-bits-test ()
   (should (equal '(nil nil nil nil t nil t nil)