Permalink
Browse files

Add test for #17.

  • Loading branch information...
1 parent 242ae73 commit 9c02acd467ff4a28a13ee5326e6f7e2d98130a1f @DarwinAwardWinner committed Oct 17, 2013
Showing with 9 additions and 0 deletions.
  1. +9 −0 async-test.el
View
@@ -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

0 comments on commit 9c02acd

Please sign in to comment.