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