split flat test into multiple sources

svn: r1275

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))
 

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"))

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))
+