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

added a not-quite-right test case (drracket's test suites don't run well in gr2 yet)

Browse Source
This commit is contained in:
Robby Findler 2010-12-02 10:39:31 -06:00
parent 9501a9d7f8
commit 60d986b6df
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
collects/tests/drracket/syncheck-test.rkt
View File

@ -248,6 +248,39 @@ trigger runtime errors in check syntax.
("x" lexically-bound-variable)
(")" default-color))
(list '((22 23) (25 26))))
(build-test "(define-syntax-rule (m x y z) (list (λ x y) (λ x z)))\n(m x x x)"
'(("(" default-color)
("define-syntax-rule" imported)
(" (" default-color)
("m" lexically-bound)
(" " default-color)
("x" lexically-bound)
(" " default-color)
("y" lexically-bound)
(" " default-color)
("z" lexically-bound)
(") (list (λ " default-color)
("x" lexically-bound)
(" " default-color)
("y" lexically-bound)
(") (λ " default-color)
("x" lexically-bound)
(" " default-color)
("z" lexically-bound)
(")))\n(" default-color)
("m" lexically-bound)
(" " default-color)
("x" lexically-bound)
(" " default-color)
("x" lexically-bound)
(" " default-color)
("x" lexically-bound)
(")" default-color))
(list '(((21 22) (55 56))
((23 24) (39 40) (47 48))
((25 26) (41 42))
((27 28) (49 50))
((57 58) (59 60) (61 62)))))
(build-test "(module m mzscheme)"
'(("(" default-color)