branch: elpa/pacmacs
commit a5583b62551fc574276f29245f4e92cf4573c639
Author: rexim <[email protected]>
Commit: rexim <[email protected]>
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)
