[elpa] externals/dash bf99147 247/426: Fix `-tree-mapreduce-from` test & reformat the tests

[Phillip Lord]

branch: externals/dash
commit bf99147ca02ec7f40d2279e9a4e490394ba6bc7d
Author: Matus Goljer <address@hidden>
Commit: Matus Goljer <address@hidden>

    Fix `-tree-mapreduce-from` test & reformat the tests
---
 dev/examples.el |   22 +++++++++++++---------
 1 files changed, 13 insertions(+), 9 deletions(-)

diff --git a/dev/examples.el b/dev/examples.el
index baf1257..84d72f8 100644
--- a/dev/examples.el
+++ b/dev/examples.el
@@ -375,17 +375,20 @@
     (--tree-mapreduce 0 (max acc (1+ it)) '(1 (2 (4 9) (2 1)) (7 (4 3)))) => 3
     (--tree-mapreduce (-value-to-list it)
                       (-concat it acc)
-                      '((1 . 2) (3 . 4) (5 (6 7) 8))) => '(1 2 3 4 5 6 7 8)
-                      (--tree-mapreduce (if (-cons-pair? it) (cdr it) it)
-                                        (concat it " " acc)
-                                        '("foo" (bar . "bar") ((baz . "baz")) 
"quux" (qwop . "qwop"))) => "foo bar baz quux qwop"
-                                        (--tree-mapreduce (if (-cons-pair? it) 
(list (cdr it)) nil)
-                                                          (append it acc)
-                                                          '((elips-mode (foo 
(bar . booze)) (baz . qux)) (c-mode (foo . bla) (bum . bam)))) => '(booze qux 
bla bam))
+                      '((1 . 2) (3 . 4) (5 (6 7) 8)))
+    => '(1 2 3 4 5 6 7 8)
+    (--tree-mapreduce (if (-cons-pair? it) (cdr it) it)
+                      (concat it " " acc)
+                      '("foo" (bar . "bar") ((baz . "baz")) "quux" (qwop . 
"qwop")))
+    => "foo bar baz quux qwop"
+    (--tree-mapreduce (if (-cons-pair? it) (list (cdr it)) nil)
+                      (append it acc)
+                      '((elips-mode (foo (bar . booze)) (baz . qux)) (c-mode 
(foo . bla) (bum . bam))))
+    => '(booze qux bla bam))
 
   (defexamples -tree-mapreduce-from
     (-tree-mapreduce-from 'identity '* 1 '(1 (2 (3 4) (5 6)) (7 (8 9)))) => 
362880
-    (--tree-mapreduce-from (+ it it) (cons it acc) nil '(1 (2 (4 9) (2 1)) (7 
(4 3)))) => (2 (4 (8 18) (4 2)) (14 (8 6)))
+    (--tree-mapreduce-from (+ it it) (cons it acc) nil '(1 (2 (4 9) (2 1)) (7 
(4 3)))) => '(2 (4 (8 18) (4 2)) (14 (8 6)))
     (concat "{" (--tree-mapreduce-from
                  (cond
                   ((-cons-pair? it)
@@ -395,7 +398,8 @@
                                         (equal (substring it (1- (length it))) 
"{"))
                               ", ") acc)
                  "}"
-                 '((elips-mode (foo (bar . booze)) (baz . qux)) (c-mode (foo . 
bla) (bum . bam))))) => "{elips-mode : {foo : {bar -> booze}, baz -> qux}, 
c-mode : {foo -> bla, bum -> bam}}")
+                 '((elips-mode (foo (bar . booze)) (baz . qux)) (c-mode (foo . 
bla) (bum . bam)))))
+    => "{elips-mode : {foo : {bar -> booze}, baz -> qux}, c-mode : {foo -> 
bla, bum -> bam}}")
 
   (defexamples -clone
     (let* ((a '(1 2 3)) (b (-clone a))) (nreverse a) b) => '(1 2 3)))