[elpa] master 9b5bb5c 072/187: Add more comprehensive testing for anti-closure feature

[Michael Albinus]

branch: master
commit 9b5bb5cbd986addbe9b4e0499131f2d38808b256
Author: Ryan C. Thompson <r...@thompsonclan.org>
Commit: Ryan C. Thompson <r...@thompsonclan.org>

    Add more comprehensive testing for anti-closure feature
    
    Based on suggestions in
    https://github.com/jwiegley/emacs-async/pull/18#issuecomment-26665920
---
 async-test.el |   19 +++++++++++++++----
 1 files changed, 15 insertions(+), 4 deletions(-)

diff --git a/async-test.el b/async-test.el
index 03db68e..a5e83e9 100644
--- a/async-test.el
+++ b/async-test.el
@@ -135,10 +135,21 @@
   (interactive)
   (message "Starting async-test-7...")
   (eval
-   '(mapcar #'async-get
-            (cl-loop repeat 2 collect
-                     (async-start (lambda () t))))
-   t))
+   '(progn
+      (print
+       (mapcar #'async-get
+               (cl-loop repeat 2 collect
+                        (async-start (lambda () t)))))
+      (print
+       (mapcar #'async-get
+               (cl-loop repeat 2 collect
+                        (async-start '(lambda () t)))))
+      (print
+       (mapcar #'async-get
+               (cl-loop repeat 2 collect
+                        (async-start `(lambda () ,(* 150 2)))))))
+   t)
+  (message "Finished async-test-7 successfully."))
 
 (defsubst async-file-contents (file)
   "Return the contents of FILE, as a string."