added a test to make sure struct/dc signals an error when getting an impersonator
contract on an immutable field that has no dependencies
This commit is contained in:
parent
1a824c2b50
commit
2eb3264b44
|
@ -9789,6 +9789,15 @@
|
|||
'pos
|
||||
'neg)))
|
||||
|
||||
(contract-error-test
|
||||
'struct/dc-imp-nondep-runtime-error
|
||||
#'(let ()
|
||||
(struct s (ernie bert))
|
||||
(struct/dc s [ernie integer?] [bert (new-∀/c 'α)]))
|
||||
(λ (x)
|
||||
(and (exn:fail? x)
|
||||
(regexp-match #rx"expected chaperone" (exn-message x)))))
|
||||
|
||||
(contract-error-test
|
||||
'struct/dc-not-a-field
|
||||
#'(eval '(let ()
|
||||
|
|
Loading…
Reference in New Issue
Block a user