From 88bf52c88b5310a471ac6b319c250029426503de Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Sat, 2 Jul 2011 12:19:41 -0700 Subject: [PATCH] These tests are sensitive to the contract error messages --- collects/tests/plai/datatype.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/tests/plai/datatype.rkt b/collects/tests/plai/datatype.rkt index 839c9f6e12..26ae35eb7f 100644 --- a/collects/tests/plai/datatype.rkt +++ b/collects/tests/plai/datatype.rkt @@ -32,10 +32,10 @@ (eli:test (i 4) - (regexp-match "\\(exception \\(make-i #f\\) \".+ on make-i .+\" ' \"at line 36\"\\)" + (regexp-match "\\(exception \\(make-i #f\\) \"make-i.+\" ' \"at line 36\"\\)" (with-output-to-string (λ () (test/exn (make-i #f) "contract")))) - (regexp-match "\\(exception \\(i-f #f\\) \".+ on i-f .+\" ' \"at line 39\"\\)" + (regexp-match "\\(exception \\(i-f #f\\) \"i-f.+\" ' \"at line 39\"\\)" (with-output-to-string (λ () (test/exn (i-f #f) "contract")))) @@ -45,7 +45,7 @@ => 1 - (regexp-match "\\(exception \\(c1 \\(quote not-a-number\\)\\) \".+ on c1 .+\" ' \"at line 49\"\\)" + (regexp-match "\\(exception \\(c1 \\(quote not-a-number\\)\\) \"c1.+\" ' \"at line 49\"\\)" (with-output-to-string (λ () (test (c1 'not-a-number) (list 5))))) (regexp-match (regexp-quote "(exception (type-case t (list 1) (c () 1)) \"type-case: expected a value from type t, got: (1)\" ' \"at line 53\")")