update the mzlib contract test suite to the new error messages

original commit: 94ebb1f31745b9969774e37753e77137223029fc
2010-12-10 06:51:34 -06:00 · 2010-12-10 06:51:34 -06:00 · 2794f54cab
commit 2794f54cab
parent 6d0079b4bd b9de711d8a 8258184a9a f5c7a9f7a5 de3c2dcc8a
1 changed files with 1 additions and 1 deletions
--- 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