branch: master
commit ea7a1847baaf3609ff684f0668cd8951891dbb84
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>
tiny-test.el (tiny-mapconcat): Add test.
---
tiny-test.el | 30 +++++++++++++++++++++++++++++-
1 files changed, 29 insertions(+), 1 deletions(-)
diff --git a/tiny-test.el b/tiny-test.el
index e6cbf0f..0836e6d 100644
--- a/tiny-test.el
+++ b/tiny-test.el
@@ -161,7 +161,35 @@ SCHEDULED: <2015-11-05 Thu> DEADLINE: <2015-11-13 Fri>
SCHEDULED: <2015-11-12 Thu> DEADLINE: <2015-11-20 Fri>"))
(should (string= (with-text-value "m7|%(expt 2 x)"
(lambda()(eval (read (tiny-mapconcat)))))
- "1 2 4 8 16 32 64 128")))
+ "1 2 4 8 16 32 64 128"))
+ (should (string= (with-text-value "m\\n25+?ax|(\"%c\")"
+ (lambda()(eval (read (tiny-mapconcat)))))
+ "(\"a\")
+(\"b\")
+(\"c\")
+(\"d\")
+(\"e\")
+(\"f\")
+(\"g\")
+(\"h\")
+(\"i\")
+(\"j\")
+(\"k\")
+(\"l\")
+(\"m\")
+(\"n\")
+(\"o\")
+(\"p\")
+(\"q\")
+(\"r\")
+(\"s\")
+(\"t\")
+(\"u\")
+(\"v\")
+(\"w\")
+(\"x\")
+(\"y\")
+(\"z\")")))
(ert-deftest tiny-replace-this-sexp ()
(should (equal (with-text-value "(mapcar (lambda (x) (* x x)) '(1 2 3))"
