[elpa] master 4eef4e6 37/46: tiny.el: add a test case

[Oleh Krehel]

branch: master
commit 4eef4e6d7bdfffcc21490b9c880e40a2e6d4bf24
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    tiny.el: add a test case
---
 tiny-test.el |    5 ++++-
 tiny.el      |    1 +
 2 files changed, 5 insertions(+), 1 deletions(-)

diff --git a/tiny-test.el b/tiny-test.el
index 6fa1659..9a47a97 100644
--- a/tiny-test.el
+++ b/tiny-test.el
@@ -155,7 +155,10 @@ SCHEDULED: <2014-10-29 Wed> DEADLINE: <2014-11-06 Thu>
 **** TODO Classical Mechanics Week 8
 SCHEDULED: <2014-11-05 Wed> DEADLINE: <2014-11-13 Thu>
 **** TODO Classical Mechanics Week 9
-SCHEDULED: <2014-11-12 Wed> DEADLINE: <2014-11-20 Thu>")))
+SCHEDULED: <2014-11-12 Wed> DEADLINE: <2014-11-20 Thu>"))
+  (should (string= (with-text-value "m7|%(expt 2 x)"
+                     (lambda()(eval (read (tiny-mapconcat)))))
+                   "1 2 4 8 16 32 64 128")))
 
 (ert-deftest tiny-replace-this-sexp ()
   (should (equal (with-text-value "(mapcar (lambda (x) (* x x)) '(1 2 3))"
diff --git a/tiny.el b/tiny.el
index 0325c82..0fed2f2 100644
--- a/tiny.el
+++ b/tiny.el
@@ -57,6 +57,7 @@
 ;; m10*2+3x
 ;; m\n;; 10expx
 ;; m5\n;; 20expx%014.2f
+;; m7|%(expt 2 x)
 ;; m, 7|0x%02x
 ;; m10|%0.2f
 ;; m1\n14|*** TODO http://emacsrocks.com/e%02d.html