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

adjust language test for new letrec semantics

Browse Source
This commit is contained in:
Robby Findler 2014-04-24 07:58:12 -05:00
parent 846342db9f
commit 4d7ccc60a9
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkgs/drracket-pkgs/drracket-test/tests/drracket/language-test.rkt
View File

@ -121,8 +121,8 @@ the settings above should match r5rs
(test-expression "(define shrd (box 1)) (list shrd shrd)"
"'(#&1 #&1)"
#rx"define-values: assignment disallowed.*: shrd")
(test-expression "(local ((define x x)) 1)" "1")
(test-expression "(letrec ([x x]) 1)" "1")
(test-expression "(local ((define x x)) 1)" #rx"x: undefined;\n cannot use before initialization")
(test-expression "(letrec ([x x]) 1)" #rx"x: undefined;\n cannot use before initialization")
(test-expression "(if 1 1 1)" "1")
(test-expression "(+ 1)" "1")
@ -236,8 +236,8 @@ the settings above should match r5rs
(test-expression "'(1)" "(1)")
(test-expression "(define shrd (box 1)) (list shrd shrd)"
"(#&1 #&1)")
(test-expression "(local ((define x x)) 1)" "1")
(test-expression "(letrec ([x x]) 1)" "1")
(test-expression "(local ((define x x)) 1)" #rx"x: undefined;\n cannot use before initialization")
(test-expression "(letrec ([x x]) 1)" #rx"x: undefined;\n cannot use before initialization")
(test-expression "(if 1 1 1)" "1")
(test-expression "(+ 1)" "1")
@ -370,7 +370,7 @@ the settings above should match r5rs
(test-expression
"(local ((define x x)) 1)"
#rx"define: not allowed in an expression context")
(test-expression "(letrec ((x x)) 1)" "1")
(test-expression "(letrec ((x x)) 1)" #rx"x: undefined;\n cannot use before initialization")
(test-expression "(if 1 1 1)" "1")
(test-expression "(+ 1)" "1")