Add error message specifications

This commit is contained in:
AlexKnauth 2015-08-12 16:03:31 -05:00
parent f8cc9e8dcd
commit af2c22f542
3 changed files with 6 additions and 0 deletions

View File

@ -1,3 +1,5 @@
#;
(exn-pred #rx"expected: Radians.*given: Degrees")
#lang typed/racket/base
(require "../succeed/define-new-subtype.rkt")

View File

@ -1,3 +1,5 @@
#;
(exn-pred #rx"expected: \\(Listof Nothing\\).*given: \\(Listof Pos\\*\\)")
#lang typed/racket
(define-type Pos Integer)
(define-new-subtype Pos* (p Pos))

View File

@ -1,3 +1,5 @@
#;
(exn-pred #rx"expected: \\(Listof Nothing\\).*given: \\(Listof Pos\\*\\)")
#lang typed/racket
(define-type Pos Integer)
(define-new-subtype Pos* (p Pos))