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

Fix running individual optimizer tests.

Browse Source 
original commit: 8e225621c3ab2976e40b92e1a2c8ed40206b90b5
This commit is contained in:
Vincent St-Amour 2013-09-28 16:35:29 -04:00
parent 8dbf844521
commit 89f5af7712
1 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/run.rkt
View File

@ -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))