[elpa] master e959cd5 03/10: add a couple tests

[Oleh Krehel]

branch: master
commit e959cd5a31765b5a9cf33883d3dc12de0fe5f10d
Author: nverno <address@hidden>
Commit: nverno <address@hidden>

    add a couple tests
---
 tiny-test.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/tiny-test.el b/tiny-test.el
index 1540e3d..1c85aa1 100644
--- a/tiny-test.el
+++ b/tiny-test.el
@@ -213,4 +213,11 @@ SCHEDULED: <2015-11-12 Thu> DEADLINE: <2015-11-20 Fri>"))
     (should (equal (tiny-tokenize "(string x (upcase x) x") "(string x (upcase 
x) x)"))
     (should (equal (tiny-tokenize "(string x (upcase x) x)") "(string x 
(upcase x) x)")))
 
+(ert-deftest tiny-decreasing-seq ()
+  (should (equal (with-text-value "m2 -2" (lambda () (eval (read 
(tiny-mapconcat)))))
+                 "2 1 0 -1 -2"))
+  (should (equal (with-text-value "m3 -1|%(+ x x)" (lambda ()
+                                                     (eval (read 
(tiny-mapconcat)))))
+                 "6 4 2 0 -2")))
+
 (provide 'tiny-test)