[elpa] externals/dash 7d62b1a 393/439: Make test suite independent of dash

[Phillip Lord]

branch: externals/dash
commit 7d62b1a12780525bc839dec85d28aabf29003f2b
Author: Fredrik Bergroth <address@hidden>
Commit: Fredrik Bergroth <address@hidden>

    Make test suite independent of dash
---
 dev/examples-to-tests.el |   26 +++++++++++++++-----------
 1 files changed, 15 insertions(+), 11 deletions(-)

diff --git a/dev/examples-to-tests.el b/dev/examples-to-tests.el
index 70c5ae7..49d6649 100644
--- a/dev/examples-to-tests.el
+++ b/dev/examples-to-tests.el
@@ -1,18 +1,22 @@
 (require 'ert)
-(require 'dash)
-(require 'dash-functional)
 
-(defun example-to-should (example)
-  (-let [(actual sym expected) example]
-    (cond
-     ((eq sym '=>)
-      `(should (equal ,actual ,expected)))
-     ((eq sym '!!>)
-      `(should-error (eval ',actual) :type ',expected)))))
+(defun example-to-should (actual sym expected)
+  (cond ((eq sym '=>)
+         `(should (equal ,actual ,expected)))
+        ((eq sym '!!>)
+         `(should-error (eval ',actual) :type ',expected))
+        (t
+         (error "invalid test case: %S" `(,actual ,sym ,expected)))))
+
 
 (defmacro defexamples (cmd &rest examples)
-  `(ert-deftest ,cmd ()
-     ,@(-map 'example-to-should (-partition 3 examples))))
+  (let ((tests))
+    (while examples
+      (push (example-to-should (pop examples)
+                               (pop examples)
+                               (pop examples))
+            tests))
+    `(ert-deftest ,cmd () ,@(nreverse tests))))
 
 (defun def-example-group (&rest _)) ; ignore