adjust the drracket language test suite for the new error messages

This commit is contained in:
Robby Findler 2012-06-11 13:41:55 -05:00
parent c1aa8cb0eb
commit c9693ab910

View File

@ -484,13 +484,13 @@ the settings above should match r5rs
"(cons 1 empty)"
"(cons 1 empty)")
(test-expression "(car (list))"
"car: expects a pair; given: empty")
"car: expects a pair, given empty")
(test-undefined-var "argv")
(test-undefined-fn "(define-syntax app syntax-case)" "define-syntax")
(test-expression "#lang racket"
"module: this function is not defined"
"read: #lang not enabled in the current context"
"read: #lang not enabled in the current context")
(test-expression "(define (f)\n(+ (raise-user-error 'a \"b\")))\n(if (zero? (random 1)) (void) (set! f void))\n(f)"
"define: expected at least one variable after the function name, but found none"
@ -634,14 +634,14 @@ the settings above should match r5rs
(test-expression "(list 1)"
"(list 1)"
"(list 1)")
(test-expression "(car (list))" "car: expects a pair; given: empty")
(test-expression "(car (list))" "car: expects a pair, given empty")
(test-undefined-var "argv")
(test-undefined-fn "(define-syntax app syntax-case)" "define-syntax")
(test-expression "#lang racket"
"module: this function is not defined"
"read: #lang not enabled in the current context"
"read: #lang not enabled in the current context")
(test-expression "(define (f)\n(+ (raise-user-error 'a \"b\")))\n(if (zero? (random 1)) (void) (set! f void))\n(f)"
"define: expected at least one variable after the function name, but found none"
@ -780,13 +780,13 @@ the settings above should match r5rs
(test-expression "(list 1)"
"(list 1)"
"(list 1)")
(test-expression "(car (list))" "car: expects a pair; given: empty")
(test-expression "(car (list))" "car: expects a pair, given empty")
(test-undefined-var "argv")
(test-undefined-fn "(define-syntax app syntax-case)" "define-syntax")
(test-expression "#lang racket"
"module: this function is not defined"
"read: #lang not enabled in the current context"
"read: #lang not enabled in the current context")
(test-expression "(define (f)\n(+ (raise-user-error 'a \"b\")))\n(if (zero? (random 1)) (void) (set! f void))\n(f)"
"define: expected at least one variable after the function name, but found none"
@ -923,13 +923,13 @@ the settings above should match r5rs
(test-expression "(list 1)"
"(list 1)"
"(list 1)")
(test-expression "(car (list))" "car: expects a pair; given: empty")
(test-expression "(car (list))" "car: expects a pair, given empty")
(test-undefined-var "argv")
(test-undefined-fn "(define-syntax app syntax-case)" "define-syntax")
(test-expression "#lang racket"
"module: this function is not defined"
"read: #lang not enabled in the current context"
"read: #lang not enabled in the current context")
(test-expression "(define (f)\n(+ (raise-user-error 'a \"b\")))\n(if (zero? (random 1)) (void) (set! f void))\n(f)"
"define: expected at least one variable after the function name, but found none"
@ -1074,13 +1074,13 @@ the settings above should match r5rs
(test-expression "(list 1)"
"(list 1)"
"(list 1)")
(test-expression "(car (list))" "car: expects a pair; given: empty")
(test-expression "(car (list))" "car: expects a pair, given empty")
(test-undefined-var "argv")
(test-undefined-fn "(define-syntax app syntax-case)" "define-syntax")
(test-expression "#lang racket"
"module: this function is not defined"
"read: #lang not enabled in the current context"
"read: #lang not enabled in the current context")
(test-expression "(define (f)\n(+ (raise-user-error 'a \"b\")))\n(if (zero? (random 1)) (void) (set! f void))\n(f)"
#rx"raise-user-error"