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

Make original generics tests quiet.

Browse Source
This commit is contained in:
Vincent St-Amour 2012-05-23 10:55:39 -04:00
parent f42ae56893
commit dd05d6e6bc
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/tests/generics/from-unstable.rkt
View File

@ -11,7 +11,7 @@
[null [null
#f])) #f]))
(test (test #:on-pass 'quiet
(local (local
[(define-generics (lots) [(define-generics (lots)
(f #:foo foo lots zog [def])) (f #:foo foo lots zog [def]))
@ -20,7 +20,7 @@
#:methods gen:lots #:methods gen:lots
[(define (f #:foo foo lots zog [def #t]) [(define (f #:foo foo lots zog [def #t])
1)])] 1)])]
(test (test #:on-pass 'quiet
(f #:foo 3 (make-ex) 2) => 1 (f #:foo 3 (make-ex) 2) => 1
(f (make-ex) #:foo 3 2) => 1 (f (make-ex) #:foo 3 2) => 1
(f (make-ex) 2 #:foo 3) => 1)) (f (make-ex) 2 #:foo 3) => 1))
@ -33,7 +33,7 @@
#:methods gen:lots #:methods gen:lots
[(define (f #:foo foo lots zog #:def [def #t]) [(define (f #:foo foo lots zog #:def [def #t])
1)])] 1)])]
(test (test #:on-pass 'quiet
(f #:foo 3 (make-ex) 2) => 1 (f #:foo 3 (make-ex) 2) => 1
(f (make-ex) 4 #:foo 3 #:def 2) => 1 (f (make-ex) 4 #:foo 3 #:def 2) => 1
(f (make-ex) 3 #:foo 1) => 1)) (f (make-ex) 3 #:foo 1) => 1))
@ -49,7 +49,7 @@
(if (zero? idx) (if (zero? idx)
val val
(gen:f lots (sub1 idx) (* 2 val))))])] (gen:f lots (sub1 idx) (* 2 val))))])]
(test (test #:on-pass 'quiet
(f (make-ex) 4 1) => (expt 2 4))) (f (make-ex) 4 1) => (expt 2 4)))
(local (local
@ -72,7 +72,7 @@
(set-mcar! prev new) (set-mcar! prev new)
(set-alist-l! table (mcons (mcons idx new) (alist-l table))))))))] (set-alist-l! table (mcons (mcons idx new) (alist-l table))))))))]
(test (test #:on-pass 'quiet
(make-alist empty) (make-alist empty)
(get (make-alist empty) 'foo) => #f (get (make-alist empty) 'foo) => #f
@ -91,7 +91,7 @@
=> =>
1)) 1))
(test (test #:on-pass 'quiet
(define-generics (table) (define-generics (table)
(get idx [default])) (get idx [default]))
=error> =error>
@ -130,11 +130,12 @@
(define x (make-num 10)) (define x (make-num 10))
(define y (make-bool #t))] (define y (make-bool #t))]
(test (parameterize ([current-output-port (open-output-nowhere)])
(test #:on-pass 'quiet
(gen-print x) (gen-print x)
(gen-port-print (current-output-port) x) (gen-port-print (current-output-port) x)
(gen-print* x #:width 100 #:height 90) (gen-print* x #:width 100 #:height 90)
(gen-print y) (gen-print y)
(gen-port-print (current-output-port) y) (gen-port-print (current-output-port) y)
(gen-print* y #:width 100 #:height 90)))) (gen-print* y #:width 100 #:height 90)))))