diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1.rkt index 65f7030bb1..c7cf7b2bfb 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1.rkt +++ b/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)) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me10.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me10.rkt index 70360977d6..7ba6b48b13 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me10.rkt +++ b/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)) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me11-rd.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me11-rd.rkt index 682396a20b..ad91d873e7 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me11-rd.rkt +++ b/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!!! diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me12-rd.ss b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me12-rd.ss index 682396a20b..ad91d873e7 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me12-rd.ss +++ b/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!!! diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me14.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me14.rkt index 0de4c9e9a2..21987b423f 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me14.rkt +++ b/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) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me15.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me15.rkt index d8107232ec..ebd9f5d9c9 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me15.rkt +++ b/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) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me16.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me16.rkt index 3b109f622f..6bb9de67b3 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me16.rkt +++ b/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)) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me17a.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me17a.rkt index a6826d7597..6f61620ea8 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me17a.rkt +++ b/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)) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me18.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me18.rkt index f169efab51..b8fd250173 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me18.rkt +++ b/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) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me19.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me19.rkt index fcfda97e66..addc967a4e 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me19.rkt +++ b/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) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1b.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1b.rkt index 5c2ae8fce6..6344f44446 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1b.rkt +++ b/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) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1c.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1c.rkt index 70c8a943c8..d08dd0b4ee 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1c.rkt +++ b/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) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1d.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1d.rkt index 7bc3cd2149..3847ca2c43 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1d.rkt +++ b/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) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1e.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1e.rkt index 8ad79cff45..1942a29e6f 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1e.rkt +++ b/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) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1f.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1f.rkt index 124a44cb48..ef2d99ed30 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me1f.rkt +++ b/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) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me2.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me2.rkt index 0e4d9481dd..232c0a8c4d 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me2.rkt +++ b/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)) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me20.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me20.rkt index d4b8fe1586..f0851e8134 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me20.rkt +++ b/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)) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me21.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me21.rkt index dbf09c11cb..856fd11230 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me21.rkt +++ b/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)]) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me3.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me3.rkt index 247292131a..d34cde4dc6 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me3.rkt +++ b/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)) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me5.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me5.rkt index 23c1fbe875..f78a77d77a 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me5.rkt +++ b/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)) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me6.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me6.rkt index 58a244aee1..8cc774ae89 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me6.rkt +++ b/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"))]) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me6b.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me6b.rkt index 839af8e0b3..c2643bf99b 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me6b.rkt +++ b/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"))]) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me9.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me9.rkt index cdb4847278..f9aabb24b5 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me9.rkt +++ b/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) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/alt.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/alt.rkt index abb8992b46..68008701f7 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/alt.rkt +++ b/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"))) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/dyn-sub.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/dyn-sub.rkt index 081b7ffd4e..e3f8034168 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/dyn-sub.rkt +++ b/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) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/main.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/main.rkt index c2ec8174a1..550c457847 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/main.rkt +++ b/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"))) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/other.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/other.rkt index 98b95b7a4e..d05dfbd3d8 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-1/other.rkt +++ b/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"))) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-2/main.ss b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-2/main.ss index 818ed55316..6874861598 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-2/main.ss +++ b/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"))) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-2/private/sub.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-2/private/sub.rkt index 120caf0483..24ff5d4162 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-planet-2/private/sub.rkt +++ b/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"))) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/test.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/test.rkt index e2609d1f6a..4e2e6d59f1 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/test.rkt +++ b/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")))