From 6bf13ee2dd5b575df7bbd8fddfba8fa172eccf82 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Tue, 19 Jul 2011 08:25:42 -0400 Subject: [PATCH] For lack of a colon, unit tests were failed. --- 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 6d89cc7f3f..3317a10fa7 100644 --- a/collects/tests/units/test-unit-contracts.rktl +++ b/collects/tests/units/test-unit-contracts.rktl @@ -6,8 +6,8 @@ (define top-level "top-level") (define (match-blame re msg) - (or (regexp-match? (format "blaming ~a" re) msg) - (regexp-match? (format "self-contract violation:.*blaming ~a" re) msg))) + (or (regexp-match? (format "blaming: ~a" re) msg) + (regexp-match? (format "self-contract violation:.*blaming: ~a" re) msg))) (define (match-obj re msg) (or (regexp-match? (format "~a: contract violation" re) msg)