suzanne.soy/typed-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 
original commit: a728bae3cb83770c8e293e90acebe4ff1d7491da
This commit is contained in:
Sam Tobin-Hochstadt 2010-05-04 19:45:35 -04:00
parent e30cd94960
commit 0c4ea82ca1
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 ()
[(_ nm 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)
(syntax-case stx ()
[(_ 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)))]))