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

use racunit better to get expected/actual info

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-05-04 19:45:35 -04:00
parent d7d157b441
commit a728bae3cb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/typed-scheme/unit-tests/test-utils.rkt
View File

@ -47,8 +47,9 @@
(syntax-case stx () (syntax-case stx ()
[(_ nm a b) [(_ nm a b)
(syntax/loc stx (test-check nm type-equal? a b))])) (syntax/loc stx (test-check nm type-equal? a b))]))
(define-binary-check (check-tc-result-equal?* tc-result-equal/test? a b))
(define-syntax (check-tc-result-equal? stx) (define-syntax (check-tc-result-equal? stx)
(syntax-case stx () (syntax-case stx ()
[(_ nm a b) [(_ nm a b)
(syntax/loc stx (test-check nm tc-result-equal/test? a b))])) (syntax/loc stx (test-case nm (check-tc-result-equal?* a b)))]))