From f9e2944b09ba6e14f6bb558883f47a25dae39c03 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 10 Nov 2005 20:58:37 +0000
Subject: [PATCH] split flat test into multiple sources

svn: r1275
---
 collects/tests/mzscheme/makeflat.ss  |  9 +++++++-
 collects/tests/mzscheme/makeflats.ss | 32 ++++++++++++++++++++++++++++
 collects/tests/mzscheme/runflats.ss  | 11 ++++++++++
 3 files changed, 51 insertions(+), 1 deletion(-)
 create mode 100644 collects/tests/mzscheme/makeflats.ss
 create mode 100644 collects/tests/mzscheme/runflats.ss

diff --git a/collects/tests/mzscheme/makeflat.ss b/collects/tests/mzscheme/makeflat.ss
index a174a00eab..65c1a39a0b 100644
--- a/collects/tests/mzscheme/makeflat.ss
+++ b/collects/tests/mzscheme/makeflat.ss
@@ -13,12 +13,19 @@
 		    +inf.0))])
   (namespace-variable-value 'lines-per-file))
 
+(with-handlers ([exn:fail:contract:variable?
+		 (lambda (exn)
+		   (namespace-set-variable-value!
+		    'flat-number
+		    ""))])
+  (namespace-variable-value 'flat-number))
+
 (require (lib "pretty.ss"))
 
 (define line-count 0)
 (define file-count 0)
 
-(define flatp (open-output-file "flat.ss" 'replace))
+(define flatp (open-output-file (format "flat~a.ss" flat-number) 'replace))
 (define old-eval (current-eval))
 (define old-namespace (current-namespace))
 
diff --git a/collects/tests/mzscheme/makeflats.ss b/collects/tests/mzscheme/makeflats.ss
new file mode 100644
index 0000000000..9fc575b29e
--- /dev/null
+++ b/collects/tests/mzscheme/makeflats.ss
@@ -0,0 +1,32 @@
+
+(define flat-number 0)
+(for-each (lambda (f)
+	    (parameterize ([current-namespace (make-namespace)])
+	      (set! flat-number (add1 flat-number))
+	      (eval
+	       `(begin
+		  (require-for-syntax mzscheme)
+		  (define flat-load ,f)
+		  (define flat-number ,(format "-~a" flat-number))
+		  (load-relative "makeflat.ss")))))
+	  '("basic.ss"
+	    "unicode.ss"
+	    "read.ss"
+	    "macro.ss"
+	    "syntax.ss"
+	    "stx.ss"
+	    "module.ss"
+	    "number.ss"
+	    "object.ss"
+	    "struct.ss"
+	    "unit.ss"
+	    "unitsig.ss"
+	    "thread.ss"
+	    "sync.ss"
+	    "deep.ss"
+	    "contmark.ss"
+	    "will.ss"
+	    "namespac.ss"
+	    "port.ss"
+	    "file.ss"
+	    "path.ss"))
diff --git a/collects/tests/mzscheme/runflats.ss b/collects/tests/mzscheme/runflats.ss
new file mode 100644
index 0000000000..beec4a871a
--- /dev/null
+++ b/collects/tests/mzscheme/runflats.ss
@@ -0,0 +1,11 @@
+
+(for-each (lambda (f)
+	    (when (regexp-match "^flat-[0-9]+[.]ss$" (path->string f))
+	      (parameterize ([current-namespace (make-namespace)])
+		(eval
+		 `(begin
+		    (require-for-syntax mzscheme)
+		    (define quiet-load ,(path->string f))
+		    (load-relative "quiet.ss"))))))
+	  (directory-list))
+