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

Fix optimizer test harness to use the new syntax of with-logging-to-port.

Browse Source 
original commit: 641dd731ab0c699180435578fdc0a393ef03d1a5
This commit is contained in:
Vincent St-Amour 2011-06-01 16:38:59 -04:00
parent b5cf24813c
commit 7dca73dd33
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/typed-scheme/optimizer/run.rkt
View File

@ -12,14 +12,15 @@
[out-string
(with-output-to-string
(lambda ()
(with-logging-to-port log-port 'warning ; catch opt logs
(with-logging-to-port log-port ; catch opt logs
(lambda ()
(parameterize
([current-namespace (make-base-empty-namespace)]
[current-load-relative-directory dir])
(dynamic-require
(build-path (current-load-relative-directory) name)
#f))))))])
#f)))
#:level 'warning)))])
;; have the log as an sexp, since that's what the expected log is
(with-input-from-string
(string-append "(" (get-output-string log-port) ; join log and results