update the mzlib contract test suite to the new error messages

2010-12-10 06:51:34 -06:00 · 2010-12-10 06:51:34 -06:00 · 94ebb1f317
commit 94ebb1f317
parent b902cb5455
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