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

changed some overly specific tests so they dont have to be run from my directories and updated to some new mz error messages

Browse Source 
svn: r13204
This commit is contained in:
Robby Findler 2009-01-18 19:28:51 +00:00
parent e1d5ced45e
commit f486051cd9
1 changed files with 21 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
collects/tests/drscheme/repl-test.ss
View File

@ -59,7 +59,9 @@ This produces an ACK message
(define syntax-regexp-prefix (define syntax-regexp-prefix
(string-append (string-append
(regexp-quote "#<syntax:/Users/robby/svn/plt/collects/tests/drscheme/repl-test-tmp") (regexp-quote "#<syntax:")
".*"
(regexp-quote "tests/drscheme/repl-test-tmp")
"3?" "3?"
(regexp-quote ".ss"))) (regexp-quote ".ss")))
@ -587,12 +589,12 @@ This produces an ACK message
(mktest "(current-namespace (make-namespace 'empty))\nif" (mktest "(current-namespace (make-namespace 'empty))\nif"
("{stop-22x22.png} compile: bad syntax; function application is not allowed, because no #%app syntax transformer is bound in: (#%top-interaction . if)" ("{stop-22x22.png} compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction"
"{stop-22x22.png} compile: bad syntax; function application is not allowed, because no #%app syntax transformer is bound in: (#%top-interaction . if)" "{stop-22x22.png} compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction"
"{stop-22x22.png} repl-test-tmp3.ss:2:0: compile: bad syntax; function application is not allowed, because no #%app syntax transformer is bound in: (#%top-interaction . if)" "{stop-22x22.png} repl-test-tmp3.ss:2:0: compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction"
"{stop-22x22.png} compile: bad syntax; function application is not allowed, because no #%app syntax transformer is bound in: (#%top-interaction . if)" "{stop-22x22.png} compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction"
"{stop-multi.png} {stop-22x22.png} compile: bad syntax; function application is not allowed, because no #%app syntax transformer is bound in: (#%top-interaction . if)" "{stop-multi.png} {stop-22x22.png} compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction"
"{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:2:0: compile: bad syntax; function application is not allowed, because no #%app syntax transformer is bound in: (#%top-interaction . if)") "{stop-multi.png} {stop-22x22.png} repl-test-tmp3.ss:2:0: compile: unbound identifier (and no #%app syntax transformer is bound) in: #%top-interaction")
'definitions 'definitions
#f #f
void void
@ -650,12 +652,12 @@ This produces an ACK message
(regexp-quote ":1:21>\"})")))]) (regexp-quote ":1:21>\"})")))])
(mktest "(write (list (syntax x)))" (mktest "(write (list (syntax x)))"
("({embedded \".#<syntax:/Users/robby/svn/plt/collects/tests/drscheme/repl-test-tmp.ss:1:21>\"})" (#rx"({embedded \".#<syntax:.*/collects/tests/drscheme/repl-test-tmp.ss:1:21>\"})"
"({embedded \".#<syntax:/Users/robby/svn/plt/collects/tests/drscheme/repl-test-tmp.ss:1:21>\"})" #rx"({embedded \".#<syntax:.*/collects/tests/drscheme/repl-test-tmp.ss:1:21>\"})"
"({embedded \".#<syntax:/Users/robby/svn/plt/collects/tests/drscheme/repl-test-tmp3.ss:1:21>\"})" #rx"({embedded \".#<syntax:.*/collects/tests/drscheme/repl-test-tmp3.ss:1:21>\"})"
"({embedded \".#<syntax:/Users/robby/svn/plt/collects/tests/drscheme/repl-test-tmp.ss:1:21>\"})" #rx"({embedded \".#<syntax:.*/collects/tests/drscheme/repl-test-tmp.ss:1:21>\"})"
"({embedded \".#<syntax:/Users/robby/svn/plt/collects/tests/drscheme/repl-test-tmp.ss:1:21>\"})" #rx"({embedded \".#<syntax:.*/collects/tests/drscheme/repl-test-tmp.ss:1:21>\"})"
"({embedded \".#<syntax:/Users/robby/svn/plt/collects/tests/drscheme/repl-test-tmp3.ss:1:21>\"})") #rx"({embedded \".#<syntax:.*/collects/tests/drscheme/repl-test-tmp3.ss:1:21>\"})")
'interactions 'interactions
#f #f
void void
@ -691,12 +693,12 @@ This produces an ACK message
(mktest "(parameterize ([current-output-port (open-output-string)]) (fprintf (current-error-port) \"~e\" #'foot))" (mktest "(parameterize ([current-output-port (open-output-string)]) (fprintf (current-error-port) \"~e\" #'foot))"
("#<syntax:/Users/robby/svn/plt/collects/tests/drscheme/repl-test-tmp.ss:1:96>" (#rx"#<syntax:.*/collects/tests/drscheme/repl-test-tmp.ss:1:96>"
"#<syntax:/Users/robby/svn/plt/collects/tests/drscheme/repl-test-tmp.ss:1:96>" #rx"#<syntax:.*/collects/tests/drscheme/repl-test-tmp.ss:1:96>"
"#<syntax:/Users/robby/svn/plt/collects/tests/drscheme/repl-test-tmp3.ss:1:96>" #rx"#<syntax:.*/collects/tests/drscheme/repl-test-tmp3.ss:1:96>"
"#<syntax:/Users/robby/svn/plt/collects/tests/drscheme/repl-test-tmp.ss:1:96>" #rx"#<syntax:.*/collects/tests/drscheme/repl-test-tmp.ss:1:96>"
"#<syntax:/Users/robby/svn/plt/collects/tests/drscheme/repl-test-tmp.ss:1:96>" #rx"#<syntax:.*/collects/tests/drscheme/repl-test-tmp.ss:1:96>"
"#<syntax:/Users/robby/svn/plt/collects/tests/drscheme/repl-test-tmp3.ss:1:96>") #rx"#<syntax:.*/collects/tests/drscheme/repl-test-tmp3.ss:1:96>")
'interactions 'interactions
#f #f
void void