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

Fix contract profiler tests to test more.

Browse Source
This commit is contained in:
Vincent St-Amour 2014-01-08 13:45:11 -05:00
parent 889ad57fff
commit cc0e67638c
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkgs/contract-profile/utils.rkt
View File

@ -1,5 +1,7 @@
#lang racket/base #lang racket/base
(require racket/port)
(provide (all-defined-out)) (provide (all-defined-out))
(struct contract-profile (struct contract-profile
@ -25,7 +27,9 @@
(define dry-run? (make-parameter #f)) (define dry-run? (make-parameter #f))
(define-syntax-rule (with-output-to-report-file file body ...) (define-syntax-rule (with-output-to-report-file file body ...)
(unless (dry-run?) (if (dry-run?)
(with-output-to-file file (parameterize ([current-output-port (open-output-nowhere)])
#:exists 'replace body ...)
(lambda () body ...)))) (with-output-to-file file
#:exists 'replace
(lambda () body ...))))