From 4d7ccc60a918852229d72b10d2ccad8e995bc556 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 24 Apr 2014 07:58:12 -0500 Subject: [PATCH] adjust language test for new letrec semantics --- .../drracket-test/tests/drracket/language-test.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/pkgs/drracket-pkgs/drracket-test/tests/drracket/language-test.rkt b/pkgs/drracket-pkgs/drracket-test/tests/drracket/language-test.rkt index 97d219cf6d..27102ea983 100644 --- a/pkgs/drracket-pkgs/drracket-test/tests/drracket/language-test.rkt +++ b/pkgs/drracket-pkgs/drracket-test/tests/drracket/language-test.rkt @@ -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")