From 72e5e1248fdc727b377b87a296a85575a6dd7319 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 27 Aug 2011 10:53:25 -0500
Subject: [PATCH] make all of the planet tests run sequentially (as they
 manipulate global planet state that causes them to fail when run in parallel)

---
 collects/meta/props               | 11 +++++++---
 collects/tests/planet/run-all.rkt | 35 +++++++++++++++++++++++++++++++
 2 files changed, 43 insertions(+), 3 deletions(-)
 create mode 100644 collects/tests/planet/run-all.rkt

diff --git a/collects/meta/props b/collects/meta/props
index 5e1784e056..5086c1f9e2 100755
--- a/collects/meta/props
+++ b/collects/meta/props
@@ -1557,10 +1557,15 @@ path/s is either such a string or a list of them.
 "collects/tests/plai/test-random-mutator.rkt" responsible (jay robby)
 "collects/tests/plai/web.rkt" drdr:command-line (mzc "-k" *)
 "collects/tests/planet" responsible (robby jay)
-"collects/tests/planet/cmdline-tool.rkt" drdr:command-line #f
+"collects/tests/planet/cmdline-tool.rkt" drdr:command-line (raco "make" *)
+"collects/tests/planet/docs-build.rkt" drdr:command-line (raco "make" *)
 "collects/tests/planet/examples/dummy-module.rkt" drdr:command-line #f
 "collects/tests/planet/examples/scribblings-package" drdr:command-line #f
-"collects/tests/planet/thread-safe-resolver.rkt" drdr:timeout 1000
+"collects/tests/planet/lang.rkt" drdr:command-line (raco "make" *)
+"collects/tests/planet/run-all.rkt" drdr:command-line (racket *)
+"collects/tests/planet/test-docs-complete.rkt" drdr:command-line (raco "make" *)
+"collects/tests/planet/thread-safe-resolver.rkt" drdr:command-line (raco "make" *) drdr:timeout 1000
+"collects/tests/planet/version.rkt" drdr:command-line (raco "make" *)
 "collects/tests/plot/run-tests.rkt" drdr:command-line (gracket-text "-t" *)
 "collects/tests/r6rs" responsible (mflatt)
 "collects/tests/racket" responsible (mflatt)
@@ -1831,8 +1836,8 @@ path/s is either such a string or a list of them.
 "collects/tests/racket/pconvert.rktl" drdr:command-line #f
 "collects/tests/racket/place-chan-rand-help.rkt" responsible (tewk)
 "collects/tests/racket/place-chan-rand.rkt" responsible (tewk) drdr:random #t
-"collects/tests/racket/place-channel.rkt" responsible (tewk) drdr:command-line (racket "-tm" *) drdr:timeout 300
 "collects/tests/racket/place-channel-ffi.rkt" responsible (tewk) drdr:command-line (racket "-tm" *)
+"collects/tests/racket/place-channel.rkt" responsible (tewk) drdr:command-line (racket "-tm" *) drdr:timeout 300
 "collects/tests/racket/place.rktl" responsible (tewk) drdr:command-line (racket "-f" *)
 "collects/tests/racket/port.rktl" drdr:command-line #f
 "collects/tests/racket/portlib.rktl" drdr:command-line #f
diff --git a/collects/tests/planet/run-all.rkt b/collects/tests/planet/run-all.rkt
new file mode 100644
index 0000000000..3c76c205ed
--- /dev/null
+++ b/collects/tests/planet/run-all.rkt
@@ -0,0 +1,35 @@
+#lang racket
+
+#|
+
+Run all of the PLaneT tests sequentially since they 
+manipulate the planet state in ways that doesn't work
+in parallel
+
+|#
+
+(require racket/runtime-path)
+(define-runtime-path me "run-all.rkt")
+
+(define ran-tests '())
+
+(dynamic-wind
+ void
+ (λ ()
+   (for ([test (in-list (sort (directory-list (path-only me))
+                              string<=?
+                              #:key (λ (x) (format "~s" x))))])
+     (when (file-exists? (build-path (path-only me) test))
+       (when (regexp-match #rx"rkt$" (path->string test))
+         (unless (equal? (file-name-from-path me)
+                         test)
+           (flush-output)
+           (printf "============================================================\nrunning ~a\n"
+                   test)
+           (dynamic-require (build-path (path-only me) test) #f)
+           (printf "finished ~a\n\n"
+                   test)
+           (set! ran-tests (cons test ran-tests)))))))
+ (λ ()
+   (printf "\nran: ~a\n" ran-tests)))
+