From b66f71637434ff539a379ae7b03f5b762958bc37 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 29 Apr 2012 21:45:07 -0500 Subject: [PATCH] adjust the unit contract tests for the new contract error messages --- collects/tests/units/test-unit-contracts.rktl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/units/test-unit-contracts.rktl b/collects/tests/units/test-unit-contracts.rktl index 3317a10fa7..cd74be3934 100644 --- a/collects/tests/units/test-unit-contracts.rktl +++ b/collects/tests/units/test-unit-contracts.rktl @@ -15,10 +15,10 @@ (define (get-ctc-err msg) (cond - [(regexp-match #rx"contract violation, ([^\n]*)\n" msg) + [(regexp-match #rx"contract violation\n *([^\n]*)\n" msg) => (λ (x) (cadr x))] - [(regexp-match #rx"self-contract violation, ([^\n]*)\n" msg) + [(regexp-match #rx"self-contract violation\n *([^\n]*)\n" msg) => (lambda (x) (cadr x))] [else (error 'test-contract-error