branch: master
commit 4eef4e6d7bdfffcc21490b9c880e40a2e6d4bf24
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>
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
