From 7ab53d8ddb36424f616c4f7f914bc8d91e7b5a3d Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Fri, 10 Dec 2010 13:05:42 -0500 Subject: [PATCH] Fix unit contract tests due to new contract error format. --- collects/tests/units/test-unit-contracts.rktl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/tests/units/test-unit-contracts.rktl b/collects/tests/units/test-unit-contracts.rktl index 88acb53a14..2a42b94c41 100644 --- a/collects/tests/units/test-unit-contracts.rktl +++ b/collects/tests/units/test-unit-contracts.rktl @@ -6,10 +6,11 @@ (define top-level "top-level") (define (match-blame re msg) - (regexp-match? (string-append "(^| )" re " broke") msg)) + (or (regexp-match? (string-append "(^| )for " re " and its implementation;") msg) + (regexp-match? (string-append "(^| )and its client " re ";") msg))) (define (match-obj re msg) - (regexp-match? (string-append "(^| )on " re ";") msg)) + (regexp-match? (string-append "(^| )on " re " for") msg)) (define (get-ctc-err msg) (cond