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