raco exe: adjust tests to avoid "stdout" in source directory

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1.rkt

@@ -1,5 +1,5 @@
 (module embed-me1 mzscheme
-  (with-output-to-file "stdout"
+  (with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
     (lambda () (printf "This is 1\n"))
     'append))
 

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me10.rkt

@@ -1,7 +1,7 @@
 (module embed-me10 mzscheme
   (require openssl/mzssl)
 
-  (with-output-to-file "stdout"
+  (with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
     (lambda () 
       (printf "~a\n" ssl-available?))
     'append))

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me11-rd.rkt

@@ -4,7 +4,7 @@
 
   (define (*read port)
     `(module embed-me11 mzscheme
-       (with-output-to-file "stdout"
+       (with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
          (lambda () 
            (printf ,(read port) 
                    ;; Use `getenv' at read time!!!

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me12-rd.ss

@@ -4,7 +4,7 @@
 
   (define (*read port)
     `(module embed-me11 mzscheme
-       (with-output-to-file "stdout"
+       (with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
          (lambda () 
            (printf ,(read port) 
                    ;; Use `getenv' at read time!!!

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me14.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (require "embed-me13.rkt")
-(with-output-to-file "stdout"
+(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
   (lambda () (printf "This is 14\n"))
   #:exists 'append)

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me15.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (require (submod "embed-me15-one.rkt" one))
-(with-output-to-file "stdout"
+(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
   (lambda () (printf "This is ~a.\n" (+ 9 one two three)))
   #:exists 'append)

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me16.rkt

@@ -2,6 +2,6 @@
 
 ;; a `main' submodule:
 (module main racket/base
-  (with-output-to-file "stdout"
+  (with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
     (lambda () (printf "This is 16.\n"))
     #:exists 'append))

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me17a.rkt

@@ -4,6 +4,6 @@
   (lambda () (printf "This is 17.\n")))
 
 (module+ sub
-  (with-output-to-file "stdout"
+  (with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
     print-17
     #:exists 'append))

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me18.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (require (submod tests/compiler/embed/embed-me18a sub))
-(with-output-to-file "stdout"
+(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
   (dynamic-require '(submod tests/compiler/embed/embed-me18a sub) 'print-18)
   #:exists 'append)

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me19.rkt

@@ -9,6 +9,6 @@
   (namespace-require 'racket/base)
   (eval (read (open-input-string "#lang plai 10"))))
 
-(with-output-to-file "stdout"
+(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
   (lambda () (printf "This is 19.\n"))
   #:exists 'append)

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1b.rkt

@@ -3,7 +3,7 @@
 (require scheme/runtime-path
          (for-syntax scheme/base))
 (define-runtime-path file '(lib "icons/file.gif"))
-(with-output-to-file "stdout"
+(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
   (lambda () (printf "This is 1b\n"))
   #:exists 'append)
 

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1c.rkt

@@ -3,7 +3,7 @@
 (require scheme/runtime-path
          (for-syntax scheme/base))
 (define-runtime-path file '(lib "etc.ss")) ; in mzlib
-(with-output-to-file "stdout"
+(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
   (lambda () (printf "This is 1c\n"))
   #:exists 'append)
 

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1d.rkt

@@ -3,6 +3,6 @@
 (require scheme/runtime-path
          (for-syntax scheme/base))
 (define-runtime-path file '(lib "file.gif" "icons"))
-(with-output-to-file "stdout"
+(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
   (lambda () (printf "This is 1d\n"))
   #:exists 'append)

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1e.rkt

@@ -3,6 +3,6 @@
 (require scheme/runtime-path
          (for-syntax scheme/base))
 (define-runtime-path file '(lib "html"))
-(with-output-to-file "stdout"
+(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
   (lambda () (printf "This is 1e\n"))
   #:exists 'append)

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1f.rkt

@@ -6,7 +6,7 @@
 (define-runtime-path f1 "embed-me1f1.rktl")
 (define-runtime-path f2 "sub/embed-me1f2.rktl")
 
-(with-output-to-file "stdout"
+(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
   (lambda () (parameterize ([current-namespace (make-base-namespace)])
                (load f1)))
   #:exists 'append)

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me2.rkt

@@ -1,6 +1,6 @@
 (module embed-me2 mzscheme
   (require "embed-me1.ss"
 	   mzlib/etc)
-  (with-output-to-file "stdout"
+  (with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
     (lambda () (printf "This is 2: ~a\n" true))
     'append))

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me20.rkt

@@ -2,6 +2,6 @@
 
 ;; like "embed-me16.rkt" using `module+'
 (module+ main
-  (with-output-to-file "stdout"
+  (with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
     (lambda () (printf "This is 20.\n"))
     #:exists 'append))

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me21.rkt

@@ -7,6 +7,6 @@
 
 (match "x"
   [(pregexp "x")
-   (with-output-to-file "stdout"
+   (with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
      (lambda () (printf "This is 21.\n"))
      #:exists 'append)])

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me3.rkt

@@ -1,6 +1,6 @@
 (module embed-me3 mzscheme
   (require mzlib/etc)
-  (with-output-to-file "stdout"
+  (with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
     (lambda () 
       (printf "3 is here, too? ~a\n" true))
     'append))

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me5.rkt

@@ -1,6 +1,6 @@
 (module embed-me5 mzscheme
   (require mred)
-  (with-output-to-file "stdout"
+  (with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
     (lambda () (printf "This is 5: ~s\n" button%))
     'append))
 

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me6.rkt

@@ -1,5 +1,5 @@
 (module embed-me6 mzscheme
-  (with-output-to-file "stdout"
+  (with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
     (lambda () 
       (printf "This is 6\n")
       (with-handlers ([void (lambda (exn) (printf "no etc.ss\n"))])

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me6b.rkt

@@ -1,5 +1,5 @@
 (module embed-me6b racket/base
-  (with-output-to-file "stdout"
+  (with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
     (lambda () 
       (printf "This is 6\n")
       (with-handlers ([void (lambda (exn) (printf "no etc.ss\n"))])

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me9.rkt

@@ -1,6 +1,6 @@
 (module embed-me9 mzscheme
   (require "embed-me8.ss")
-  (with-output-to-file "stdout"
+  (with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
     (lambda () 
       (printf "~a\n" (ex)))
     'append)

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/alt.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 (require "main.rkt")
 
-(with-output-to-file "stdout"
+(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
   #:exists 'append
   (lambda () (displayln "alt")))

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/dyn-sub.rkt

@@ -1,7 +1,7 @@
 #lang racket/base
 (require (submod (planet racket-tester/p1/has-sub) the-sub))
 
-(with-output-to-file "stdout"
+(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
   #:exists 'append
   (lambda () (displayln (dynamic-require
                          '(submod (planet racket-tester/p1/has-sub) the-sub)

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/main.rkt

@@ -1,4 +1,4 @@
 #lang racket/base
 
-(with-output-to-file "stdout"
+(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
   (lambda () (displayln "one")))

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/other.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 (require (planet racket-tester/p2))
 
-(with-output-to-file "stdout"
+(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
   #:exists 'append
   (lambda () (displayln "other")))

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-2/main.ss

@@ -1,5 +1,5 @@
 #lang racket/base
 
 
-(with-output-to-file "stdout"
+(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
   (lambda () (displayln "two")))

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-2/private/sub.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 (require "../main.ss")
 
-(with-output-to-file "stdout"
+(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
   #:exists 'append
   (lambda () (displayln "sub")))

pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/test.rkt

@@ -219,7 +219,7 @@
          (list 
           tmp
           (build-path (collection-path "tests" "compiler" "embed") "embed-me4.rktl"))
-         `(with-output-to-file "stdout"
+         `(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
             (lambda () (display "... and more!\n"))
             'append)
          `(,(flags "l") ,(string-append "tests/compiler/embed/" filename)))
@@ -256,7 +256,7 @@
     '(begin 
        (require scheme/base)
        (eval '(define (out s)
-                (with-output-to-file "stdout"
+                (with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
                   (lambda () (printf s))
                   #:exists 'append)))
        (out "\uA9, \u7238, and \U1D670\n")))