From ef84da32f6ab0b5e575eb205c1a7b35aed71c704 Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Wed, 12 Mar 2014 10:01:49 -0400 Subject: [PATCH] Change error messages for two TR unit tests I'm not sure why, but these tests seem to emit one of two different errors depending on the machine it's run on (hence the failure in DrDr). For the short term, I've set the regular expression to allow either of them. original commit: e2e0ab748fdd99be105160e9a9706da970f0c5a2 --- .../tests/typed-racket/unit-tests/typecheck-tests.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/typecheck-tests.rkt b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/typecheck-tests.rkt index e528f0e2..4165926a 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/typecheck-tests.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/typecheck-tests.rkt @@ -2439,12 +2439,12 @@ [tc-err (letrec-values ([(a b) (values x "b")] [(x y) (values a b)]) a) - #:msg "no type information"] + #:msg "type information"] [tc-err (letrec-values ([(a) (values x)] [(x) (values z)] [(z) (values a)]) a) - #:msg "no type information"] + #:msg "type information"] ;; make sure no-binding cases like the middle expression are checked [tc-err (let () (define r "r") (string-append r 'foo) (define x "x") "y") #:msg "expected: String.*given: 'foo"]