From 0c4ea82ca1a7bfc3eb6ef4f25b0e4216c84eb241 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Tue, 4 May 2010 19:45:35 -0400 Subject: [PATCH] use racunit better to get expected/actual info original commit: a728bae3cb83770c8e293e90acebe4ff1d7491da --- collects/tests/typed-scheme/unit-tests/test-utils.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/tests/typed-scheme/unit-tests/test-utils.rkt b/collects/tests/typed-scheme/unit-tests/test-utils.rkt index d4ad6aed..d3a48721 100644 --- a/collects/tests/typed-scheme/unit-tests/test-utils.rkt +++ b/collects/tests/typed-scheme/unit-tests/test-utils.rkt @@ -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)))]))