branch: master
commit 9c02acd467ff4a28a13ee5326e6f7e2d98130a1f
Author: Ryan C. Thompson <[email protected]>
Commit: Ryan C. Thompson <[email protected]>
Add test for #17.
---
async-test.el | 9 +++++++++
1 files changed, 9 insertions(+), 0 deletions(-)
diff --git a/async-test.el b/async-test.el
index 379cdf9..2e235f1 100644
--- 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
