Adjust tests since opaque structs are no longer accepted by Any
.
This commit is contained in:
parent
3d80322d27
commit
27ed39d101
|
@ -4,7 +4,7 @@
|
|||
(define (f x) x))
|
||||
(module typed typed/racket
|
||||
(require typed/rackunit)
|
||||
(struct (X) s ([i : X]) #:mutable)
|
||||
(struct (X) s ([i : X]) #:mutable #:transparent)
|
||||
(require/typed (submod ".." untyped)
|
||||
[f (-> Any (s (U Integer String)))])
|
||||
(: s1 : (s Integer))
|
||||
|
|
|
@ -5,7 +5,7 @@
|
|||
(module u racket/base
|
||||
(require racket/generic)
|
||||
(define-generics foo)
|
||||
(struct foo-struct () #:methods gen:foo [])
|
||||
(struct foo-struct () #:methods gen:foo [] #:transparent)
|
||||
(define f1 (foo-struct))
|
||||
(provide f1 foo?))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user