From 72c39ca7ffd004fb253bfa50f67787a9baf94820 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 16 Feb 2013 08:56:21 -0700
Subject: [PATCH] test fixups

---
 collects/meta/props                   |  1 +
 collects/tests/racket/place-ports.rkt | 33 ++++++++++++++++-----------
 2 files changed, 21 insertions(+), 13 deletions(-)

diff --git a/collects/meta/props b/collects/meta/props
index 9e9d9948c0..ebf3080098 100755
--- a/collects/meta/props
+++ b/collects/meta/props
@@ -1387,6 +1387,7 @@ path/s is either such a string or a list of them.
 "collects/tests/racket/place-channel-ffi.rkt" responsible (tewk)
 "collects/tests/racket/place-channel-socket.rkt" responsible (tewk)
 "collects/tests/racket/place-channel.rkt" responsible (tewk) drdr:timeout 300
+"collects/tests/racket/place-parallel.rkt" drdr:command-line #f
 "collects/tests/racket/place.rktl" responsible (tewk)
 "collects/tests/racket/places.rkt" responsible (tewk)
 "collects/tests/racket/port.rktl" drdr:command-line #f
diff --git a/collects/tests/racket/place-ports.rkt b/collects/tests/racket/place-ports.rkt
index d33175dd1b..1c129329fe 100644
--- a/collects/tests/racket/place-ports.rkt
+++ b/collects/tests/racket/place-ports.rkt
@@ -8,18 +8,24 @@
 
 (define (main)
 
-  (test-exn
-    "using a closed port with place*"
-    (lambda (x) (void))
-    (let ()
-    (define op (open-output-bytes))
-    (call-with-output-file "foo.foo" #:exists 'replace (lambda (op)
-      (close-output-port op)
-      (let-values ([(p pin pout perr) (place* #:out op ch (printf "Hello3\n"))])
-        (place-wait p))))))
+  (define-syntax-rule (with-stderr e)
+    (parameterize ([current-error-port (current-output-port)])
+      e))
 
+  (test-exn
+   "output port is closed"
+   (lambda (x) (void))
+   (lambda ()
+     (define op (open-output-bytes))
+     (call-with-output-file "foo.foo" #:exists 'replace 
+                            (lambda (op)
+                              (close-output-port op)
+                              (let-values ([(p pin pout perr) (place* #:out op ch (printf "Hello3\n"))])
+                                (place-wait p))))))
+  
   (place-wait (place ch (printf "Hello1\n")))
-  (place-wait (place ch (eprintf "Hello2\n")))
+  (with-stderr
+   (place-wait (place ch (eprintf "Hello2\n"))))
   (place-wait (place ch (printf "~a\n" (read))))  ; #<eof>
 
   (let-values ([(p pin pout perr) (place* ch (printf "Hello3\n"))])
@@ -31,9 +37,10 @@
   (let-values ([(p pin pout perr) (place* #:out (current-output-port) ch (printf "Hello5\n"))])
     (place-wait p))
   
-  (let-values ([(p pin pout perr) (place* #:err (current-error-port) ch (eprintf "Hello6\n")
-                                          (flush-output (current-error-port)))])
-    (place-wait p))
+  (with-stderr
+   (let-values ([(p pin pout perr) (place* #:err (current-error-port) ch (eprintf "Hello6\n")
+                                           (flush-output (current-error-port)))])
+     (place-wait p)))
   (let-values ([(p pin pout perr) (place* #:out (current-output-port) ch (printf "Hello7 ~a\n" (read)))])
     (write "Again" pin)
     (flush-output pin)