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

move some test-generated files to temp dir

Browse Source
This commit is contained in:
Matthew Flatt 2014-06-16 14:44:38 +01:00
parent 1c9db0d07c
commit ad34e983f2
4 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/htdp-pkgs/htdp-test/htdp/tests/convert-drracket-error.rkt
View File

@ -7,9 +7,11 @@
(define (Fahrenheit->Celsius x) (* (/ 100 180) (- x 32))) (define (Fahrenheit->Celsius x) (* (/ 100 180) (- x 32)))
(convert-file non-error-pth Fahrenheit->Celsius "out.dat") (convert-file non-error-pth Fahrenheit->Celsius
(build-path (find-system-path 'temp-dir) "out.dat"))
(with-handlers ((exn:fail:read? void)) (with-handlers ((exn:fail:read? void))
"The input file contains a bad header. The next line should raise an exn." "The input file contains a bad header. The next line should raise an exn."
(convert-file error-pth Fahrenheit->Celsius "out.dat") (convert-file error-pth Fahrenheit->Celsius
(build-path (find-system-path 'temp-dir) "out.dat"))
(raise `(test "this test should have failed but didn't"))) (raise `(test "this test should have failed but didn't")))

4
pkgs/htdp-pkgs/htdp-test/htdp/tests/convert.rkt
View File

@ -18,8 +18,8 @@
(= (f2c -40) -40) (= (f2c -40) -40)
;; ---------------------------------------------------------------------------- ;; ----------------------------------------------------------------------------
(define IN "convert-in.dat") (define IN (build-path (find-system-path 'temp-dir) "convert-in.dat"))
(define OUT "convert-out.dat") (define OUT (build-path (find-system-path 'temp-dir) "convert-out.dat"))
(define (create-convert-in) (define (create-convert-in)
(printf "212 32\n-40\n")) (printf "212 32\n-40\n"))

4
pkgs/srfi-pkgs/srfi-lib/srfi/42ref/examples-42.rkt
View File

@ -10,10 +10,10 @@
(require srfi/42) (require srfi/42)
(define (my-open-output-file filename) (define (my-open-output-file filename)
(open-output-file filename 'replace 'text) ) (open-output-file (build-path (find-system-path 'temp-dir) filename) 'replace 'text) )
(define (my-call-with-input-file filename thunk) (define (my-call-with-input-file filename thunk)
(call-with-input-file filename thunk 'text) ) (call-with-input-file (build-path (find-system-path 'temp-dir) filename) thunk 'text) )
; examples.scm starts here ------------------------------------------------- ; examples.scm starts here -------------------------------------------------

17
pkgs/web-server-pkgs/web-server-test/tests/web-server/pr/10546.rkt
View File

@ -1,6 +1,6 @@
#lang racket #lang racket
(define here (current-directory)) (define here (find-system-path 'temp-dir))
(define txt (build-path here "some.txt")) (define txt (build-path here "some.txt"))
(with-output-to-file txt (with-output-to-file txt
@ -11,7 +11,7 @@ Here is some text that looks at @this
END END
))) )))
(with-output-to-file "relative.rkt" (with-output-to-file (build-path here "relative.rkt")
#:exists 'replace #:exists 'replace
(lambda () (lambda ()
(display #<<END (display #<<END
@ -24,7 +24,7 @@ END
END END
))) )))
(with-output-to-file "absolute.rkt" (with-output-to-file (build-path here "absolute.rkt")
#:exists 'replace #:exists 'replace
(lambda () (lambda ()
(display #<<END (display #<<END
@ -45,11 +45,12 @@ END
))) )))
(require tests/eli-tester) (require tests/eli-tester)
(define rel (dynamic-require "relative.rkt" 'ans)) (parameterize ([current-directory here])
(define abs (dynamic-require "absolute.rkt" 'ans)) (define rel (dynamic-require "relative.rkt" 'ans))
(test (define abs (dynamic-require "absolute.rkt" 'ans))
rel => abs (test
rel => "Here is some text that looks at 5") rel => abs
rel => "Here is some text that looks at 5"))