From 2431f8f70646e00d3c65ef6d9d00fc75459d3ff0 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 29 Dec 2010 13:46:57 -0500 Subject: [PATCH] Fix TR tests for new contract error messages. --- collects/tests/typed-scheme/fail/back-and-forth.rkt | 2 +- collects/tests/typed-scheme/fail/pr10594.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/typed-scheme/fail/back-and-forth.rkt b/collects/tests/typed-scheme/fail/back-and-forth.rkt index cde56481a2..ecaf6da24e 100644 --- a/collects/tests/typed-scheme/fail/back-and-forth.rkt +++ b/collects/tests/typed-scheme/fail/back-and-forth.rkt @@ -1,5 +1,5 @@ #; -(exn-pred exn:fail:contract? #rx".*contradiction.*contract.*\\(-> Number Number\\).*f.*") +(exn-pred exn:fail:contract? #rx".*contract violation.*contract.*f.*\\(-> Number Number\\).*") #lang scheme/load diff --git a/collects/tests/typed-scheme/fail/pr10594.rkt b/collects/tests/typed-scheme/fail/pr10594.rkt index c411152fcb..271775e8e1 100644 --- a/collects/tests/typed-scheme/fail/pr10594.rkt +++ b/collects/tests/typed-scheme/fail/pr10594.rkt @@ -1,5 +1,5 @@ #; -(exn-pred exn:fail:contract? #rx".*contradiction.*implementation of 'U.*") +(exn-pred exn:fail:contract? #rx".*contract violation.*blaming 'U.*") #lang scheme/load (module T typed-scheme