From 94ebb1f31745b9969774e37753e77137223029fc Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 10 Dec 2010 06:51:34 -0600 Subject: [PATCH] update the mzlib contract test suite to the new error messages --- collects/tests/racket/contract-mzlib-test.rktl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/racket/contract-mzlib-test.rktl b/collects/tests/racket/contract-mzlib-test.rktl index 28df566071..a7c8a46bd6 100644 --- a/collects/tests/racket/contract-mzlib-test.rktl +++ b/collects/tests/racket/contract-mzlib-test.rktl @@ -79,7 +79,7 @@ of the contract library does not change over time. (let () (define (has-proper-blame? msg) (regexp-match? - (string-append "(^| )" (regexp-quote blame) " broke") + (string-append "the implementation of " (regexp-quote blame)) msg)) (printf "testing: ~s\n" name) (contract-eval