From 81f9743590c7953c00fae0650a4f752f242f3f32 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Sat, 2 Jul 2011 14:50:24 -0700 Subject: [PATCH] Another test that is sensitive to the contract error message text original commit: 8da2f537fbdd47493413c3d4d2b4b8caff947123 --- collects/tests/racket/contract-mzlib-test.rktl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/tests/racket/contract-mzlib-test.rktl b/collects/tests/racket/contract-mzlib-test.rktl index 2de1e86..615d355 100644 --- a/collects/tests/racket/contract-mzlib-test.rktl +++ b/collects/tests/racket/contract-mzlib-test.rktl @@ -5065,7 +5065,7 @@ so that propagation occurs. (eval '(require 'pce1-bug))) (λ (x) (and (exn? x) - (regexp-match #rx"on the-defined-variable1" (exn-message x))))) + (regexp-match #rx"the-defined-variable1:" (exn-message x))))) (contract-error-test #'(begin @@ -5077,7 +5077,7 @@ so that propagation occurs. (eval '(the-defined-variable2 #f))) (λ (x) (and (exn? x) - (regexp-match #rx"on the-defined-variable2" (exn-message x))))) + (regexp-match #rx"the-defined-variable2:" (exn-message x))))) (contract-error-test #'(begin @@ -5089,7 +5089,7 @@ so that propagation occurs. (eval '(the-defined-variable3 #f))) (λ (x) (and (exn? x) - (regexp-match #rx"on the-defined-variable3" (exn-message x))))) + (regexp-match #rx"the-defined-variable3:" (exn-message x))))) (contract-error-test #'(begin @@ -5101,7 +5101,7 @@ so that propagation occurs. (eval '((if #t the-defined-variable4 the-defined-variable4) #f))) (λ (x) (and (exn? x) - (regexp-match #rx"on the-defined-variable4" (exn-message x))))) + (regexp-match #rx"the-defined-variable4:" (exn-message x))))) (contract-error-test #'(begin