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

Fixes R6 tests

Browse Source
This commit is contained in:
Casey Klein 2010-08-26 06:04:06 -05:00
parent f13dcc2915
commit c66a727413
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/redex/examples/r6rs/r6rs-tests.rkt
View File

@ -19,11 +19,10 @@
(make-r6test `(store () ,t) (make-r6test `(store () ,t)
(list `(uncaught-exception (make-cond ,err))))) (list `(uncaught-exception (make-cond ,err)))))
(define (run-a-test test verbose? quiet?) (define (run-a-test test verbose?)
(unless quiet?
(unless verbose? (unless verbose?
(printf ".") (printf ".")
(flush-output))) (flush-output))
(let ([t (r6test-test test)] (let ([t (r6test-test test)]
[expected (r6test-expected test)]) [expected (r6test-expected test)])
(set! test-count (+ test-count 1)) (set! test-count (+ test-count 1))
@ -2024,7 +2023,6 @@ of digits with deconv-base
[compare-with-racket? [compare-with-racket?
(let () (let ()
(struct test-exp (redex racket set))
(define redex-exps '()) (define redex-exps '())
(define r6-module-bodies '()) (define r6-module-bodies '())
(define missing 0) (define missing 0)
@ -2091,7 +2089,7 @@ of digits with deconv-base
(begin (printf "~a tests " name) (begin (printf "~a tests " name)
(flush-output))) (flush-output)))
(set! first? #f) (set! first? #f)
(for-each (λ (x) (run-a-test x verbose? #f compare-with-racket?)) set)) (for-each (λ (x) (run-a-test x verbose?)) set))
(set! failed-tests 0) (set! failed-tests 0)
(set! verified-terms 0) (set! verified-terms 0)