suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix easter egg test suite for the new error messages

Browse Source
This commit is contained in:
Robby Findler 2012-06-01 07:14:35 -05:00
parent bf95ee1052
commit 64e4a43c9c
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/tests/drracket/private/easter-egg-lib.rkt
View File

@ -22,7 +22,7 @@
(date-year (seconds->date (current-seconds))))) (date-year (seconds->date (current-seconds)))))
(printf "trying ~a, ~a/~a PLTDREASTERSECONDS=~a\n" what month day the-seconds) (printf "trying ~a, ~a/~a PLTDREASTERSECONDS=~a\n" what month day the-seconds)
(unless (putenv "PLTDREASTERSECONDS" (number->string 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)) (start-up-and-check-car))
(define (start-up-and-check-car) (define (start-up-and-check-car)
@ -55,9 +55,8 @@
(wait-for-run-to-finish drr-frame) (wait-for-run-to-finish drr-frame)
(define res (define res
(queue-callback/res (λ () (send (send drr-frame get-interactions-text) get-text)))) (queue-callback/res (λ () (send (send drr-frame get-interactions-text) get-text))))
(unless (regexp-match (regexp-quote "car: expects argument of type <pair>; given: 'x") (unless (regexp-match #rx"contract violation.*expected: pair[?]" res)
res) (eprintf "easter-egg-lib.rkt: interactions looks wrong; got: ~s\n" res)))
(eprintf "splash.rkt: interactions looks wrong; got: ~s\n" res)))
(define (set-module-language! drr-frame) (define (set-module-language! drr-frame)
(test:menu-select "Language" "Choose Language...") (test:menu-select "Language" "Choose Language...")