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

tweak optimization tests

Browse Source 
Use `racket/base' to speed up the test suite
This commit is contained in:
Matthew Flatt 2012-11-02 10:54:02 -06:00
parent 56a4691664
commit f232e56623
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/racket/optimize.rktl
View File

@ -1299,10 +1299,10 @@
(let ([try-equiv (let ([try-equiv
(lambda (extras) (lambda (extras)
(lambda (a b) (lambda (a b)
(test-comp `(module m racket (test-comp `(module m racket/base
(define (f x) (define (f x)
(apply x ,@extras ,a))) (apply x ,@extras ,a)))
`(module m racket `(module m racket/base
(define (f x) (define (f x)
(x ,@extras ,@b))))))]) (x ,@extras ,@b))))))])
(map (lambda (try-equiv) (map (lambda (try-equiv)
@ -1321,7 +1321,7 @@
(try-equiv '(0)) (try-equiv '(0))
(try-equiv '(0 1))))) (try-equiv '(0 1)))))
(test-comp '(module m mzscheme (test-comp '(module m racket/base
(define (q x) (define (q x)
;; Single-use bindings should be inlined always: ;; Single-use bindings should be inlined always:
(let* ([a (lambda (x) (+ x 10))] (let* ([a (lambda (x) (+ x 10))]
@ -1336,7 +1336,7 @@
[j (lambda (x) (+ 1 (i x)))] [j (lambda (x) (+ 1 (i x)))]
[k (lambda (x) (+ 1 (j x)))]) [k (lambda (x) (+ 1 (j x)))])
(k x)))) (k x))))
'(module m mzscheme '(module m racket/base
(define (q x) (define (q x)
(+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ x 10)))))))))))))) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ x 10))))))))))))))