From 89f5af7712acf030dcb0afc680d7ecdcec15c7d7 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Sat, 28 Sep 2013 16:35:29 -0400 Subject: [PATCH] Fix running individual optimizer tests. original commit: 8e225621c3ab2976e40b92e1a2c8ed40206b90b5 --- .../tests/typed-racket/optimizer/run.rkt | 25 ++++++++++++++----- 1 file changed, 19 insertions(+), 6 deletions(-) diff --git a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/run.rkt b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/run.rkt index 3c70bd2a..e9644c21 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/run.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/run.rkt @@ -33,16 +33,25 @@ (define-runtime-path missed-optimizations-dir "./missed-optimizations") ;; these two return lists of tests to be run for that category of tests -(define (test-opt name logs) - (compare-logs name tests-dir logs)) -(define (test-missed-optimization name logs) - (compare-logs name missed-optimizations-dir logs)) +(define (test-opt name) + (compare-logs name + tests-dir + (delay/thread (generate-log name tests-dir)))) +(define (test-missed-optimization name) + (compare-logs name + missed-optimizations-dir + (delay/thread (generate-log name missed-optimizations-dir)))) (define (test-file? name) (and (regexp-match ".*rkt$" name) ;; skip emacs temp unsaved file backups (not (regexp-match "^\\.#" name)))) +(define (mk-test-opt name logs) + (compare-logs name tests-dir logs)) +(define (mk-test-missed-optimization name logs) + (compare-logs name missed-optimizations-dir logs)) + ;; proc returns the list of tests to be run on each file (define (mk-suite suite-name dir proc) (test-suite suite-name @@ -54,6 +63,10 @@ (proc name logs)))))) (define (optimization-tests) - (mk-suite "Optimization Tests" tests-dir test-opt)) + (mk-suite "Optimization Tests" + tests-dir + mk-test-opt)) (define (missed-optimization-tests) - (mk-suite "Missed Optimization Tests" missed-optimizations-dir test-missed-optimization)) + (mk-suite "Missed Optimization Tests" + missed-optimizations-dir + mk-test-missed-optimization))