Fix Unit integration tests to match AnyValues in error messages

This commit is contained in:
Daniel Feltey 2015-09-11 15:43:51 -05:00
parent f89d91d864
commit 93b9390e3b
2 changed files with 2 additions and 2 deletions

View File

@ -1,5 +1,5 @@
#;
(exn-pred (regexp-quote "type mismatch\n expected: (Unit (import) (export x-sig) (init-depend) Any)\n given: (Unit (import) (export) (init-depend) Void)"))
(exn-pred (regexp-quote "type mismatch\n expected: (Unit (import) (export x-sig) (init-depend) AnyValues)\n given: (Unit (import) (export) (init-depend) Void)"))
#lang typed/racket
(define-signature x-sig ([x : Integer]))

View File

@ -1,5 +1,5 @@
#;
(exn-pred (regexp-quote "type mismatch\n expected: (Unit (import) (export) (init-depend) Any)\n given: (Unit (import x-sig) (export) (init-depend) Integer)"))
(exn-pred (regexp-quote "type mismatch\n expected: (Unit (import) (export) (init-depend) AnyValues)\n given: (Unit (import x-sig) (export) (init-depend) Integer)"))
#lang typed/racket