X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/7521ba2569eed0ba031eeffdbca9e9f6d109896b..f10533854f4c7bb54247a11981191bf37b70cb36:/packages/tiny/tiny-test.el

diff --git a/packages/tiny/tiny-test.el b/packages/tiny/tiny-test.el
index dc9c3b958..4503aa644 100644
--- a/packages/tiny/tiny-test.el
+++ b/packages/tiny/tiny-test.el
@@ -25,7 +25,7 @@
 (require 'tiny nil t)
 
 (defun with-text-value (txt fn &rest args)
-  "Return the result of (apply 'FN ARGS), in a temp buffer with TXT,
+  "Return the result of (apply FN ARGS), in a temp buffer with TXT,
 with point at the end of TXT."
   (with-temp-buffer
     (insert txt)
@@ -74,6 +74,8 @@ with point at the end of TXT."
 (ert-deftest tiny-mapconcat ()
   (should (equal (with-text-value "m10" (lambda()(eval (read (tiny-mapconcat)))))
                  "0 1 2 3 4 5 6 7 8 9 10"))
+  (should (equal (with-text-value "mm10" (lambda()(eval (read (tiny-mapconcat)))))
+                 "012345678910"))
   (should (equal (with-text-value "m5 10" (lambda()(eval (read (tiny-mapconcat)))))
                  "5 6 7 8 9 10"))
   (should (equal (with-text-value "m5 10*xx" (lambda()(eval (read (tiny-mapconcat)))))