Add test for #17.

diff --git a/async-test.el b/async-test.el
index 379cdf9664f6c48e61305785609f0638b1ef7b00..2e235f109aa98d1c6b2261252a2e12b8224fcfad 100644 (file)
--- a/async-test.el
+++ b/async-test.el
@@ -130,6 +130,15 @@
    (lambda (result)
      (message "Async process done: %s" result))))
 
+(defun async-test-7 ()
+  (interactive)
+  (message "Starting async-test-7...")
+  (eval
+   '(mapcar #'async-get
+            (cl-loop repeat 2 collect
+                     (async-start (lambda () t))))
+   t))
+
 (defsubst async-file-contents (file)
   "Return the contents of FILE, as a string."
   (with-temp-buffer