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

added a few things

Browse Source 
svn: r5601
This commit is contained in:
Robby Findler 2007-02-14 23:21:12 +00:00
parent c4e863fe39
commit 94c1702b56
2 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -206,6 +206,16 @@
void void
void) void)
(make-test "(begin xx (printf \"hi\\n\"))"
"reference to undefined identifier: xx"
"reference to undefined identifier: xx"
"{bug09.gif} reference to undefined identifier: xx"
"{bug09.gif} {file.gif} repl-test-tmp.ss::1: reference to undefined identifier: xx"
(cons (make-loc 0 7 7) (make-loc 0 9 9))
#f
void
void)
(make-test (string-append (make-test (string-append
"(module m mzscheme (provide e) (define e #'1))\n" "(module m mzscheme (provide e) (define e #'1))\n"
"(module n mzscheme (require-for-syntax m) (provide s) (define-syntax (s stx) e))\n" "(module n mzscheme (require-for-syntax m) (provide s) (define-syntax (s stx) e))\n"

13
collects/tests/drscheme/syncheck-test.ss
View File

@ -663,6 +663,19 @@
'((28 56) (87 92) (93 98)) '((28 56) (87 92) (93 98))
'((57 85) (87 92) (93 98)))) '((57 85) (87 92) (93 98))))
(build-test "(module m mzscheme (require (prefix x: mzscheme)) x:+ +)"
'(("(" default-color)
("module" imported-syntax)
(" m mzscheme (" default-color)
("require" imported-syntax)
("(prefix x: mzscheme)) " default-color)
("x:+" imported-variable)
(" " default-color)
("+" imported-variable)
(")" default-color))
(list '((10 18) (20 27) (54 55))
'((28 48) (50 53))))
(build-test "(module m mzscheme (require (lib \"etc.ss\")) (rec f 1))" (build-test "(module m mzscheme (require (lib \"etc.ss\")) (rec f 1))"
'(("(" default-color) '(("(" default-color)
("module" imported-syntax) ("module" imported-syntax)