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

adjusted the repl test suite for the new error messages

Browse Source 
and the change to the racket/gui load-handler

(unfortunately, there is still another problem that keeps
the test suite from passing)

please merge to the release branch
(cherry picked from commit d8204b1624)
This commit is contained in:
Robby Findler 2012-07-17 21:58:12 -05:00 committed by Ryan Culpepper
parent 4d15bcbaca
commit d53e53f837
1 changed files with 92 additions and 94 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

186
collects/tests/drracket/private/repl-test.rkt
View File

@ -135,20 +135,20 @@ This produces an ACK message
"{stop-multi.png} {stop-22x22.png} read: expected a `)' to close `('" "{stop-multi.png} {stop-22x22.png} read: expected a `)' to close `('"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: read: expected a `)' to close `('" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: read: expected a `)' to close `('"
"{stop-22x22.png} read: expected a `)' to close `('" "{stop-22x22.png} read: expected a `)' to close `('"
"{stop-multi.png} {stop-22x22.png} read: expected a `)' to close `('" "{stop-22x22.png} read: expected a `)' to close `('"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: read: expected a `)' to close `('") "{stop-22x22.png} repl-test-tmp3.rkt:1:0: read: expected a `)' to close `('")
'definitions 'definitions
#f #f
void void
void) void)
(mktest "." (mktest "."
("{stop-22x22.png} read: illegal use of \".\"" ("{stop-22x22.png} read: illegal use of `.'"
"{stop-multi.png} {stop-22x22.png} read: illegal use of \".\"" "{stop-multi.png} {stop-22x22.png} read: illegal use of `.'"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: read: illegal use of \".\"" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: read: illegal use of `.'"
"{stop-22x22.png} read: illegal use of \".\"" "{stop-22x22.png} read: illegal use of `.'"
"{stop-multi.png} {stop-22x22.png} read: illegal use of \".\"" "{stop-22x22.png} read: illegal use of `.'"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: read: illegal use of \".\"") "{stop-22x22.png} repl-test-tmp3.rkt:1:0: read: illegal use of `.'")
'definitions 'definitions
#f #f
void void
@ -180,12 +180,12 @@ This produces an ACK message
void) void)
(mktest "xx" (mktest "xx"
(#rx"{stop-multi.png} {stop-22x22.png} reference to undefined identifier.*xx" (#rx"{stop-multi.png} {stop-22x22.png} xx:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} reference to undefined identifier.*xx" #rx"{stop-multi.png} {stop-22x22.png} xx:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: reference to undefined identifier.*xx" #rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: xx:.*cannot reference undefined identifier"
#rx"reference to undefined identifier.*xx" #rx"xx:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier.*xx" #rx"xx:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier.*xx") #rx"xx:.*cannot reference undefined identifier")
'definitions 'definitions
#f #f
void void
@ -253,12 +253,12 @@ This produces an ACK message
;; top-level semantics test ;; top-level semantics test
(mktest "(define (f) (+ 1 1)) (define + -) (f)" (mktest "(define (f) (+ 1 1)) (define + -) (f)"
(#rx"define-values: cannot change constant.*: \\+" (#rx"define-values:.*cannot change constant.*: \\+"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: define-values: cannot change constant.*: \\+" #rx"define-values:.*cannot change constant.*: \\+"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: define-values: cannot change constant.*: \\+" #rx"define-values:.*cannot change constant.*: \\+"
#rx"define-values: cannot change constant.*: \\+" #rx"define-values:.*cannot change constant.*: \\+"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: define-values: cannot change constant.*: \\+" #rx"define-values:.*cannot change constant.*: \\+"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: define-values: cannot change constant.*: \\+") #rx"define-values:.*cannot change constant.*: \\+")
'interactions 'interactions
#f #f
void void
@ -289,12 +289,12 @@ This produces an ACK message
void) void)
(mktest "(begin xx (printf \"hi\\n\"))" (mktest "(begin xx (printf \"hi\\n\"))"
(#rx"{stop-multi.png} {stop-22x22.png} reference to undefined identifier.*: xx" (#rx"{stop-multi.png} {stop-22x22.png} xx:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} reference to undefined identifier.*: xx" #rx"{stop-multi.png} {stop-22x22.png} xx:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:7: reference to undefined identifier.*: xx" #rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:7: xx:.*cannot reference undefined identifier"
#rx"reference to undefined identifier.*: xx" #rx"xx:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier.*: xx" #rx"xx:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier.*: xx") #rx"xx:.*cannot reference undefined identifier")
'definitions 'definitions
#f #f
void void
@ -306,12 +306,12 @@ This produces an ACK message
"(require 'n)\n" "(require 'n)\n"
"s") "s")
("{stop-22x22.png} compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1" (#rx"{stop-22x22.png} [?]: literal data is not allowed.*no #%datum syntax transformer is bound in: 1"
"{stop-22x22.png} compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1" #rx"{stop-22x22.png} [?]: literal data is not allowed.*no #%datum syntax transformer is bound in: 1"
"{stop-22x22.png} repl-test-tmp3.rkt:1:43: compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1" #rx"{stop-22x22.png} repl-test-tmp3.rkt:1:43: [?]: literal data is not allowed.*no #%datum syntax transformer is bound in: 1"
"{stop-22x22.png} compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1" #rx"{stop-22x22.png} [?]: literal data is not allowed.*no #%datum syntax transformer is bound in: 1"
"{stop-22x22.png} compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1" #rx"{stop-22x22.png} [?]: literal data is not allowed.*no #%datum syntax transformer is bound in: 1"
"{stop-22x22.png} repl-test-tmp3.rkt:1:43: compile: bad syntax; literal data is not allowed, because no #%datum syntax transformer is bound in: 1") #rx"{stop-22x22.png} repl-test-tmp3.rkt:1:43: [?]: literal data is not allowed.*no #%datum syntax transformer is bound in: 1")
'definitions 'definitions
#f #f
void void
@ -332,12 +332,12 @@ This produces an ACK message
void) void)
(mktest "#!/bin/sh\nxx" (mktest "#!/bin/sh\nxx"
(#rx"{stop-multi.png} {stop-22x22.png} reference to undefined identifier.*: xx" (#rx"{stop-multi.png} {stop-22x22.png} xx:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} reference to undefined identifier.*: xx" #rx"{stop-multi.png} {stop-22x22.png} xx:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:2:0: reference to undefined identifier.*: xx" #rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:2:0: xx:.*cannot reference undefined identifier"
#rx"reference to undefined identifier.*: xx" #rx"xx:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier.*: xx" #rx"xx:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier.*: xx") #rx"xx:.*cannot reference undefined identifier")
'definitions 'definitions
#f #f
void void
@ -382,24 +382,24 @@ This produces an ACK message
void) void)
(mktest " (read (open-input-string \".\"))" (mktest " (read (open-input-string \".\"))"
("{stop-multi.png} read: illegal use of \".\"" ("{stop-multi.png} read: illegal use of `.'"
"{stop-multi.png} read: illegal use of \".\"" "{stop-multi.png} read: illegal use of `.'"
"{stop-multi.png} read: illegal use of \".\"" "{stop-multi.png} read: illegal use of `.'"
"read: illegal use of \".\"" "read: illegal use of `.'"
"{stop-multi.png} read: illegal use of \".\"" "read: illegal use of `.'"
"{stop-multi.png} read: illegal use of \".\"") "read: illegal use of `.'")
'interactions 'interactions
#f #f
void void
void) void)
(mktest " (eval 'x)" (mktest " (eval 'x)"
(#rx"{stop-multi.png} {stop-22x22.png} reference to undefined identifier.*: x" (#rx"{stop-multi.png} {stop-22x22.png} x:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} reference to undefined identifier.*: x" #rx"{stop-multi.png} {stop-22x22.png} x:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:4: reference to undefined identifier.*: x" #rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:4: x:.*cannot reference undefined identifier"
#rx"reference to undefined identifier.*: x" #rx"x:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier.*: x" #rx"x:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier.*: x") #rx"x:.*cannot reference undefined identifier")
'definitions 'definitions
#f #f
void void
@ -435,8 +435,8 @@ This produces an ACK message
#rx"{stop-multi.png} {stop-22x22.png} expt: contract violation.*given: #<void>" #rx"{stop-multi.png} {stop-22x22.png} expt: contract violation.*given: #<void>"
#rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: expt: contract violation.*given: #<void>" #rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: expt: contract violation.*given: #<void>"
#rx"expt: contract violation.*given: #<void>" #rx"expt: contract violation.*given: #<void>"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: expt: contract violation.*given: #<void>" #rx"expt: contract violation.*given: #<void>"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: expt: contract violation.*given: #<void>") #rx"expt: contract violation.*given: #<void>")
'definitions 'definitions
#f #f
void void
@ -448,20 +448,20 @@ This produces an ACK message
"{stop-multi.png} {stop-22x22.png} read: expected a `)' to close `('" "{stop-multi.png} {stop-22x22.png} read: expected a `)' to close `('"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:4: read: expected a `)' to close `('" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:4: read: expected a `)' to close `('"
"1\n2\n{stop-22x22.png} read: expected a `)' to close `('" "1\n2\n{stop-22x22.png} read: expected a `)' to close `('"
"{stop-multi.png} {stop-22x22.png} read: expected a `)' to close `('" "{stop-22x22.png} read: expected a `)' to close `('"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:4: read: expected a `)' to close `('") "{stop-22x22.png} repl-test-tmp3.rkt:1:4: read: expected a `)' to close `('")
'definitions 'definitions
#f #f
void void
void) void)
(mktest "1 2 . 3 4" (mktest "1 2 . 3 4"
("1\n2\n{stop-22x22.png} read: illegal use of \".\"" ("1\n2\n{stop-22x22.png} read: illegal use of `.'"
"{stop-multi.png} {stop-22x22.png} read: illegal use of \".\"" "{stop-multi.png} {stop-22x22.png} read: illegal use of `.'"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:4: read: illegal use of \".\"" "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:4: read: illegal use of `.'"
"1\n2\n{stop-22x22.png} read: illegal use of \".\"" "1\n2\n{stop-22x22.png} read: illegal use of `.'"
"{stop-multi.png} {stop-22x22.png} read: illegal use of \".\"" "{stop-22x22.png} read: illegal use of `.'"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:4: read: illegal use of \".\"") "{stop-22x22.png} repl-test-tmp3.rkt:1:4: read: illegal use of `.'")
'definitions 'definitions
#f #f
void void
@ -480,12 +480,12 @@ This produces an ACK message
void) void)
(mktest "1 2 x 3 4" (mktest "1 2 x 3 4"
(#rx"1\n2\n{stop-multi.png} {stop-22x22.png} reference to undefined identifier.*: x" (#rx"1\n2\n{stop-multi.png} {stop-22x22.png} x:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} reference to undefined identifier.*: x" #rx"{stop-multi.png} {stop-22x22.png} x:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:4: reference to undefined identifier.*: x" #rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:4: x:.*cannot reference undefined identifier"
#rx"1\n2\nreference to undefined identifier.*: x" #rx"1\n2\nx:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier.*: x" #rx".*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier.*: x") #rx".*cannot reference undefined identifier")
'definitions 'definitions
#f #f
void void
@ -548,7 +548,6 @@ This produces an ACK message
;; new namespace test ;; new namespace test
(mktest "(current-namespace (make-namespace))\nif" (mktest "(current-namespace (make-namespace))\nif"
("{stop-22x22.png} if: bad syntax in: if" ("{stop-22x22.png} if: bad syntax in: if"
"{stop-22x22.png} if: bad syntax in: if" "{stop-22x22.png} if: bad syntax in: if"
"{stop-22x22.png} repl-test-tmp3.rkt:2:0: if: bad syntax in: if" "{stop-22x22.png} repl-test-tmp3.rkt:2:0: if: bad syntax in: if"
@ -561,13 +560,12 @@ This produces an ACK message
void) void)
(mktest "(current-namespace (make-namespace 'empty))\nif" (mktest "(current-namespace (make-namespace 'empty))\nif"
("{stop-22x22.png} #%top-interaction: unbound identifier;\n also, no #%app syntax transformer is bound in: #%top-interaction"
("{stop-22x22.png} compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction" "{stop-22x22.png} #%top-interaction: unbound identifier;\n also, no #%app syntax transformer is bound in: #%top-interaction"
"{stop-22x22.png} compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction" "{stop-22x22.png} repl-test-tmp3.rkt:2:0: #%top-interaction: unbound identifier;\n also, no #%app syntax transformer is bound in: #%top-interaction"
"{stop-22x22.png} repl-test-tmp3.rkt:2:0: compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction" "{stop-22x22.png} #%top-interaction: unbound identifier;\n also, no #%app syntax transformer is bound in: #%top-interaction"
"{stop-22x22.png} compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction" "{stop-22x22.png} #%top-interaction: unbound identifier;\n also, no #%app syntax transformer is bound in: #%top-interaction"
"{stop-22x22.png} compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction" "{stop-22x22.png} repl-test-tmp3.rkt:2:0: #%top-interaction: unbound identifier;\n also, no #%app syntax transformer is bound in: #%top-interaction")
"{stop-22x22.png} repl-test-tmp3.rkt:2:0: compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction")
'definitions 'definitions
#f #f
void void
@ -593,8 +591,8 @@ This produces an ACK message
#rx"{stop-multi.png} {stop-22x22.png} expt: contract violation.*given: #f\n15" #rx"{stop-multi.png} {stop-22x22.png} expt: contract violation.*given: #f\n15"
#rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:5:19: expt: contract violation.*given: #f\n15" #rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:5:19: expt: contract violation.*given: #f\n15"
#rx"expt: contract violation.*given: #f\n15" #rx"expt: contract violation.*given: #f\n15"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: expt: contract violation.*given: #f\n15" #rx"expt: contract violation.*given: #f\n15"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: expt: contract violation.*given: #f\n15") #rx"expt: contract violation.*given: #f\n15")
'definitions 'definitions
#f #f
void void
@ -758,12 +756,12 @@ This produces an ACK message
void) void)
(mktest "(define x 1)\n((λ (x y) y) (set! x (call/cc (lambda (x) x)))\n(x 3))" (mktest "(define x 1)\n((λ (x y) y) (set! x (call/cc (lambda (x) x)))\n(x 3))"
(#rx"{stop-multi.png} {stop-22x22.png} application: expected procedure.*given: 3" (#rx"{stop-multi.png} {stop-22x22.png} application:.*given: 3"
#rx"{stop-multi.png} {stop-22x22.png} application: expected procedure.*given: 3" #rx"{stop-multi.png} {stop-22x22.png} application:.*given: 3"
#rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:3:13: application: expected procedure.*given: 3" #rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:3:13: application:.*given: 3"
#rx"application: expected procedure.*given: 3" #rx"application:.*given: 3"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: application: expected procedure.*given: 3" #rx"application:.*given: 3"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: application: expected procedure.*given: 3") #rx"application:.*given: 3")
'definitions 'definitions
#f #f
void void
@ -842,12 +840,12 @@ This produces an ACK message
;; thread tests ;; thread tests
(mktest "(begin (thread (lambda () x)) (sleep 1/10))" (mktest "(begin (thread (lambda () x)) (sleep 1/10))"
(#rx"{stop-multi.png} {stop-22x22.png} reference to undefined identifier.*: x" (#rx"{stop-multi.png} {stop-22x22.png} x:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} reference to undefined identifier.*: x" #rx"{stop-multi.png} {stop-22x22.png} x:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:26: reference to undefined identifier.*: x" #rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:26: x:.*cannot reference undefined identifier"
#rx"reference to undefined identifier.*: x" #rx"x:.*cannot reference undefined identifier"
#rx"reference to undefined identifier.*: x" #rx"x:.*cannot reference undefined identifier"
#rx"reference to undefined identifier.*: x") #rx"x:.*cannot reference undefined identifier")
'definitions 'definitions
#f #f
void void
@ -855,12 +853,12 @@ This produces an ACK message
;; brought down from above for comparison ;; brought down from above for comparison
(mktest "xx" (mktest "xx"
(#rx"{stop-multi.png} {stop-22x22.png} reference to undefined identifier.*: xx" (#rx"{stop-multi.png} {stop-22x22.png} xx:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} reference to undefined identifier.*: xx" #rx"{stop-multi.png} {stop-22x22.png} xx:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: reference to undefined identifier.*: xx" #rx"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.rkt:1:0: xx:.*cannot reference undefined identifier"
#rx"reference to undefined identifier.*: xx" #rx"xx:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier.*: xx" #rx"xx:.*cannot reference undefined identifier"
#rx"{stop-multi.png} {stop-22x22.png} .*rkt:[0-9]+:[0-9]+: reference to undefined identifier.*: xx") #rx"xx:.*cannot reference undefined identifier")
'definitions 'definitions
#f #f
void void