[elpa] 27/119: run test processes asynch

[Eric Schulte]

eschulte pushed a commit to branch master
in repository elpa.

commit 40541d97e366d9f853dc386aa37dde29dc1c23db
Author: Eric Schulte <address@hidden>
Date:   Thu Dec 19 20:34:44 2013 -0700

    run test processes asynch
---
 emacs-web-server-test.el |   12 ++++++++++++
 1 files changed, 12 insertions(+), 0 deletions(-)

diff --git a/emacs-web-server-test.el b/emacs-web-server-test.el
index eb1fda8..594d0c2 100644
--- a/emacs-web-server-test.el
+++ b/emacs-web-server-test.el
@@ -13,6 +13,18 @@
 (eval-when-compile (require 'cl))
 (require 'ert)
 
+(defun ews-test-run-asynch (continuation program &rest program-args)
+  (let* ((buffer (generate-new-buffer "*ews-test-run-asynch*"))
+         (proc (apply #'start-process "ews-test" buffer program program-args)))
+    (set-process-sentinel proc
+      (lexical-let ((cont continuation)
+                    (buf buffer))
+        (lambda (proc signal)
+          (when (memq (process-status proc) '(exit signal))
+            (funcall cont (prog1 (with-current-buffer buf
+                                   (buffer-string))
+                            (kill-buffer buf)))))))))
+
 (ert-deftest ews/keyword-style-handler ()
   "Ensure that a simple keyword-style handler matches correctly."
   (should t)                            ; should match one