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

racket/unit: update expected error messages in tests

Browse Source
This commit is contained in:
Matthew Flatt 2018-02-28 07:01:43 -07:00
parent 4eacbbd296
commit a6e585a72e
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pkgs/racket-test/tests/units/test-unit.rkt
View File

@ -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