[PATCH 3/3] new test case for I/O switching

[PATCH 3/3] new test case for I/O switching

[Tom Tromey]

This adds a new test case that demonstrates that Emacs task-switches
while waiting for I/O.

---
 test/automated/threads.el |   13 +++++++++++++
 1 files changed, 13 insertions(+), 0 deletions(-)

diff --git a/test/automated/threads.el b/test/automated/threads.el
index b09e269..4c1afbd 100644
--- a/test/automated/threads.el
+++ b/test/automated/threads.el
@@ -162,4 +162,17 @@
        (thread-join thr))
      t)))
 
+(defun threads-test-io-switch ()
+  (setq threads-test-global 23))
+
+(ert-deftest threads-io-switch ()
+  "test that accept-process-output causes thread switch"
+  (should
+   (progn
+     (setq threads-test-global nil)
+     (make-thread #'threads-test-io-switch)
+     (while (not threads-test-global)
+       (accept-process-output nil 1))
+     threads-test-global)))
+
 ;;; threads.el ends here
-- 
1.7.7.6

Re: [PATCH 3/3] new test case for I/O switching

[Stefan Monnier]

Can you make a new `concurrency' branch in the Bzr repository?


        Stefan

Re: [PATCH 3/3] new test case for I/O switching

[Tom Tromey]

Stefan> Can you make a new `concurrency' branch in the Bzr repository?

If you mean one literally named "concurrency", then I don't know how to
do that.  Perhaps somebody more conversant with bzr can rename the old
branch first.

I can make one like "concurrency-2" easily enough.

Tom

Re: [PATCH 3/3] new test case for I/O switching

[Stefan Monnier]

Stefan> Can you make a new `concurrency' branch in the Bzr repository?
> If you mean one literally named "concurrency", then I don't know how to
> do that.  Perhaps somebody more conversant with bzr can rename the old
> branch first.

I renamed "concurrency" to "old-concurrency", so you can name it
"concurrency".


        Stefan

Re: [PATCH 3/3] new test case for I/O switching

[Tom Tromey]

Stefan> I renamed "concurrency" to "old-concurrency", so you can name it
Stefan> "concurrency".

Thanks.  I pushed the branch.

Tom