15 lines
223 B
Racket
15 lines
223 B
Racket
#lang typed/racket
|
|
|
|
;; A test for GH issue #205
|
|
|
|
(struct (A) foo ([x : A]))
|
|
|
|
(struct (A) baz foo ())
|
|
|
|
(define (f [i : Integer]) : (foo Integer)
|
|
(baz i))
|
|
|
|
(require typed/rackunit)
|
|
|
|
(check-equal? (if (baz? (f 1)) 1 2) 1)
|