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

Make optimizer tests work without writing out files.

Browse Source 
original commit: b3eea88fcd3556bf56f5138b2f5a0d929846a123
This commit is contained in:
Eric Dobson 2013-06-19 23:10:24 -07:00
parent 582fc7ad95
commit b0b67529cd
2 changed files with 20 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/logging.rkt
View File

@ -132,6 +132,7 @@
(lambda (l)
(displayln ; print log message
(string-trim (vector-ref l 1) "TR-optimizer: ") ; remove logger prefix
port))
port)
(flush-output port))
thunk
'debug 'TR-optimizer))

31
pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/places.rkt
View File

@ -1,7 +1,7 @@
#lang racket
(require racket/place typed-racket/optimizer/logging
unstable/open-place compiler/compiler)
unstable/open-place syntax/modcode)
(provide start-worker dr serialize-exn deserialize-exn s-exn? generate-log/place verbose?)
(define verbose? (make-parameter #f))
@ -64,20 +64,25 @@
(place-channel-put res #t)))
(loop)]))))
(define comp (compile-zos #f #:module? #t))
(define (generate-log/place name dir)
;; some tests require other tests, so some fiddling is required
(define f (build-path dir name))
(define file (simplify-path (build-path dir name)))
(define orig-load/use-compiled (current-load/use-compiled))
(define orig-use-compiled-file-paths (use-compiled-file-paths))
(define (test-load/use-compiled path name)
(parameterize [(use-compiled-file-paths null)
(current-load/use-compiled reset-load/use-compiled)]
(orig-load/use-compiled path name)))
(define (reset-load/use-compiled path name)
(parameterize [(use-compiled-file-paths orig-use-compiled-file-paths)
(current-load/use-compiled orig-load/use-compiled)]
(orig-load/use-compiled path name)))
(with-output-to-string
(lambda ()
(with-tr-logging-to-port
(current-output-port)
(lambda ()
(comp (list f) 'auto)))
(parameterize
([current-namespace (make-base-empty-namespace)]
[current-load-relative-directory dir])
(dynamic-require f #f))
;; clean up compiled files in prevision of the next testing run
(delete-directory/files (build-path dir "compiled")))))
(current-output-port)
(thunk
(parameterize ([current-namespace (make-base-empty-namespace)]
[current-load/use-compiled test-load/use-compiled])
(dynamic-require file #f)))))))