Add error message specifications
This commit is contained in:
parent
f8cc9e8dcd
commit
af2c22f542
|
@ -1,3 +1,5 @@
|
|||
#;
|
||||
(exn-pred #rx"expected: Radians.*given: Degrees")
|
||||
#lang typed/racket/base
|
||||
|
||||
(require "../succeed/define-new-subtype.rkt")
|
||||
|
|
|
@ -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))
|
||||
|
|
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue
Block a user