From 401c4dd0a662da7bf3dfe211946f9ab12f8a8346 Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Wed, 18 Dec 2013 18:09:29 -0500 Subject: [PATCH] Test the error message instead of a predicate This test was broken prior to commit 370c4bd but didn't fail because the test harness didn't test for the right error. --- .../typed-racket-test/tests/typed-racket/fail/promise-any.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/fail/promise-any.rkt b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/fail/promise-any.rkt index 1c9be644cd..ca8ebc6e86 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/fail/promise-any.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/fail/promise-any.rkt @@ -1,5 +1,5 @@ #; -(exn-pred exn:fail:contract?) +(exn-pred #rx"Attempted to use a higher-order value passed as `Any`") #lang racket (module typed typed/racket