From 64e4a43c9ca8fa82cdf19b9b59b1e341514c6745 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 1 Jun 2012 07:14:35 -0500 Subject: [PATCH] fix easter egg test suite for the new error messages --- collects/tests/drracket/private/easter-egg-lib.rkt | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/collects/tests/drracket/private/easter-egg-lib.rkt b/collects/tests/drracket/private/easter-egg-lib.rkt index 5c7c1f088d..aff771e4b6 100644 --- a/collects/tests/drracket/private/easter-egg-lib.rkt +++ b/collects/tests/drracket/private/easter-egg-lib.rkt @@ -22,7 +22,7 @@ (date-year (seconds->date (current-seconds))))) (printf "trying ~a, ~a/~a PLTDREASTERSECONDS=~a\n" what month day the-seconds) (unless (putenv "PLTDREASTERSECONDS" (number->string the-seconds)) - (error 'splash.rkt "putenv failed")) + (error 'easter-egg-lib.rkt "putenv failed")) (start-up-and-check-car)) (define (start-up-and-check-car) @@ -55,9 +55,8 @@ (wait-for-run-to-finish drr-frame) (define res (queue-callback/res (λ () (send (send drr-frame get-interactions-text) get-text)))) - (unless (regexp-match (regexp-quote "car: expects argument of type ; given: 'x") - res) - (eprintf "splash.rkt: interactions looks wrong; got: ~s\n" res))) + (unless (regexp-match #rx"contract violation.*expected: pair[?]" res) + (eprintf "easter-egg-lib.rkt: interactions looks wrong; got: ~s\n" res))) (define (set-module-language! drr-frame) (test:menu-select "Language" "Choose Language...")