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

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

@ -4,17 +4,17 @@
racket/system racket/system
compiler/find-exe) compiler/find-exe)
(define tmpdir (make-temporary-file "tmp~a" 'directory (current-directory))) (parameterize ((current-directory (find-system-path 'temp-dir)))
(define tmppath (build-path tmpdir "tmp.rkt")) (define tmpdir (make-temporary-file "tmp~a" 'directory (current-directory)))
(with-output-to-file (build-path tmpdir "tmp.rkt") #:exists 'replace (define tmppath (build-path tmpdir "tmp.rkt"))
(lambda () (with-output-to-file (build-path tmpdir "tmp.rkt") #:exists 'replace
(printf "#lang racket\n"))) (lambda ()
(define exec-path (find-exe)) (printf "#lang racket\n")))
(define relpath (find-relative-path (current-directory) tmppath)) (define exec-path (find-exe))
(define relpath (find-relative-path (current-directory) tmppath))
(define ok? (system* exec-path "-l" "raco" "make" "-j" "2" (path->string relpath))) (define ok? (system* exec-path "-l" "raco" "make" "-j" "2" (path->string relpath)))
(delete-directory/files tmpdir) (delete-directory/files tmpdir)
(unless ok?
(error "`raco make` test failed"))
(unless ok?
(error "`raco make` test failed")))