From 3d8c1e200aee4190ca489e8deb88a18d7d1dd3b0 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Wed, 16 May 2012 11:37:17 -0400 Subject: [PATCH] Fix unit contract tests to cope with contract error message changes. --- collects/tests/units/test-unit-contracts.rktl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/tests/units/test-unit-contracts.rktl b/collects/tests/units/test-unit-contracts.rktl index cd74be3934..2d117adda5 100644 --- a/collects/tests/units/test-unit-contracts.rktl +++ b/collects/tests/units/test-unit-contracts.rktl @@ -7,18 +7,18 @@ (define (match-blame re msg) (or (regexp-match? (format "blaming: ~a" re) msg) - (regexp-match? (format "self-contract violation:.*blaming: ~a" re) msg))) + (regexp-match? (format "broke it's contract:.*blaming: ~a" re) msg))) (define (match-obj re msg) (or (regexp-match? (format "~a: contract violation" re) msg) - (regexp-match? (format "~a: self-contract violation" re) msg))) + (regexp-match? (format "~a: broke it's contract" re) msg))) (define (get-ctc-err msg) (cond [(regexp-match #rx"contract violation\n *([^\n]*)\n" msg) => (λ (x) (cadr x))] - [(regexp-match #rx"self-contract violation\n *([^\n]*)\n" msg) + [(regexp-match #rx"broke it's contract\n *([^\n]*)\n" msg) => (lambda (x) (cadr x))] [else (error 'test-contract-error