[elpa] externals/dash a6323eb 059/439: Add some tests that verify that the lists are evaled by the anaphoric macros.

[Phillip Lord]

branch: externals/dash
commit a6323eb7aafbf5c73e6fff61e5c8f370081abedd
Author: Magnar Sveen <address@hidden>
Commit: Magnar Sveen <address@hidden>

    Add some tests that verify that the lists are evaled by the anaphoric 
macros.
---
 examples.el |    8 ++++++--
 1 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/examples.el b/examples.el
index 7930874..e0fcf9f 100644
--- a/examples.el
+++ b/examples.el
@@ -7,11 +7,13 @@
 
 (defun even? (num) (= 0 (% num 2)))
 (defun square (num) (* num num))
+(defun three-letters () '("A" "B" "C"))
 
 (defexamples !map
   (!map (lambda (num) (* num num)) '(1 2 3 4)) => '(1 4 9 16)
   (!map 'square '(1 2 3 4)) => '(1 4 9 16)
-  (!!map (* it it) '(1 2 3 4)) => '(1 4 9 16))
+  (!!map (* it it) '(1 2 3 4)) => '(1 4 9 16)
+  (!!map (concat it it) (three-letters)) => '("AA" "BB" "CC"))
 
 (defexamples !reduce-from
   (!reduce-from '+ 7 '(1 2)) => 10
@@ -99,4 +101,6 @@
 (defexamples !each
   (let (s) (!each '(1 2 3) (lambda (item) (setq s (cons item s))))) => nil
   (let (s) (!each '(1 2 3) (lambda (item) (setq s (cons item s)))) s) => '(3 2 
1)
-  (let (s) (!!each '(1 2 3) (setq s (cons it s))) s) => '(3 2 1))
+  (let (s) (!!each '(1 2 3) (setq s (cons it s))) s) => '(3 2 1)
+  (let (s) (!!each (reverse (three-letters)) (setq s (cons it s))) s) => '("A" 
"B" "C")
+)