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

Don't display name of non-test files.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-05-02 11:41:34 -04:00
parent b4b490b724
commit 850d4d325d
1 changed files with 20 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -52,25 +52,27 @@
(define (test gen) (define (test gen)
(let-values (((base name _) (split-path gen))) (let-values (((base name _) (split-path gen)))
(when (show-names?) (displayln name))
(or (not (regexp-match ".*rkt$" name)) ; we ignore all but racket files (or (not (regexp-match ".*rkt$" name)) ; we ignore all but racket files
;; we log optimizations and compare to an expected log to make sure (begin
;; that all the optimizations we expected did indeed happen (when (show-names?) (displayln name))
(and (or (let ((log (generate-opt-log name)) ;; we log optimizations and compare to an expected log to make sure
;; expected optimizer log, to see what was optimized ;; that all the optimizations we expected did indeed happen
(expected (and (or (let ((log (generate-opt-log name))
(with-input-from-file gen ;; expected optimizer log, to see what was optimized
(lambda () (expected
(read-line) ; skip the #; (with-input-from-file gen
(read))))) ; get the log itself (lambda ()
(equal? log expected)) (read-line) ; skip the #;
(begin (printf "~a failed: optimization log mismatch\n\n" name) (read))))) ; get the log itself
#f)) (equal? log expected))
;; optimized and non-optimized versions must evaluate to the (begin
;; same thing (printf "~a failed: optimization log mismatch\n\n" name)
(or (equal? (evaluator gen) (evaluator gen #:optimize #t)) #f))
(begin (printf "~a failed: result mismatch\n\n" name) ;; optimized and non-optimized versions must evaluate to the
#f)))))) ;; same thing
(or (equal? (evaluator gen) (evaluator gen #:optimize #t))
(begin (printf "~a failed: result mismatch\n\n" name)
#f)))))))
(define to-run (define to-run
(command-line (command-line