[elpa] master ea7a184 42/46: tiny-test.el (tiny-mapconcat): Add test.

[Oleh Krehel]

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))"