diff --git a/pkgs/racket-test/tests/units/test-unit.rkt b/pkgs/racket-test/tests/units/test-unit.rkt index a3f04466e4..d6c8a5f5d6 100644 --- a/pkgs/racket-test/tests/units/test-unit.rkt +++ b/pkgs/racket-test/tests/units/test-unit.rkt @@ -1094,9 +1094,9 @@ (define u1 (unit (import) (export x-sub y-sub) (define x 1) (define xx 2) (define y 3) (define yy 4))) (define-values/invoke-unit u1 (import) (export x-sig)) (test 1 x) - (test-runtime-error exn? "xx: undefined;\n cannot reference undefined identifier" xx) - (test-runtime-error exn? "y: undefined;\n cannot reference undefined identifier" y) - (test-runtime-error exn? "yy: undefined;\n cannot reference undefined identifier" yy)) + (test-runtime-error exn? "xx: undefined;\n cannot reference an identifier before its definition" xx) + (test-runtime-error exn? "y: undefined;\n cannot reference an identifier before its definition" y) + (test-runtime-error exn? "yy: undefined;\n cannot reference an identifier before its definition" yy)) (let () (define u1 (unit (import) (export x-sig) (define x 1))) @@ -1634,7 +1634,7 @@ (test-syntax-error - "x: unbound identifier in module" + "x: unbound identifier" (module foo racket (define-signature x-sig (x)) (define-unit u (import x-sig) (export) x) @@ -1642,7 +1642,7 @@ (test-syntax-error - "y: unbound identifier in module" + "y: unbound identifier" (module foo racket (define-signature x-sig (x)) (define-signature y-sig (y)) @@ -2062,9 +2062,9 @@ (test 'zero (use-unit)) (test 'zero (use-unit2)) - (test-runtime-error exn:fail:contract:variable? "u-a: undefined;\n cannot reference undefined identifier" + (test-runtime-error exn:fail:contract:variable? "u-a: undefined;\n cannot reference an identifier before its definition" (use-unit-badly1 u-a)) - (test-runtime-error exn:fail:contract:variable? "u-a: undefined;\n cannot reference undefined identifier" + (test-runtime-error exn:fail:contract:variable? "u-a: undefined;\n cannot reference an identifier before its definition" (use-unit-badly2 sig^)) (test 12