suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Avoid writing to the current directory in this test.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2016-01-09 22:51:55 -05:00
parent 73a010841f
commit 12927d0e8b
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler-test/tests/compiler/make.rkt
View File

@ -4,6 +4,7 @@
racket/system racket/system
compiler/find-exe) compiler/find-exe)
(parameterize ((current-directory (find-system-path 'temp-dir)))
(define tmpdir (make-temporary-file "tmp~a" 'directory (current-directory))) (define tmpdir (make-temporary-file "tmp~a" 'directory (current-directory)))
(define tmppath (build-path tmpdir "tmp.rkt")) (define tmppath (build-path tmpdir "tmp.rkt"))
(with-output-to-file (build-path tmpdir "tmp.rkt") #:exists 'replace (with-output-to-file (build-path tmpdir "tmp.rkt") #:exists 'replace
@ -16,5 +17,4 @@
(delete-directory/files tmpdir) (delete-directory/files tmpdir)
(unless ok? (unless ok?
(error "`raco make` test failed")) (error "`raco make` test failed")))