minimal VarAssert in turnstile working
This commit is contained in:
parent
e514453a12
commit
4ab405fd70
|
@ -0,0 +1,11 @@
|
||||||
|
#lang typed/syndicate
|
||||||
|
|
||||||
|
(require rackunit/turnstile)
|
||||||
|
|
||||||
|
(check-type
|
||||||
|
(role-strings
|
||||||
|
(start-facet X
|
||||||
|
(field [state Bool #t])
|
||||||
|
(assert (tuple (! state)))))
|
||||||
|
: (List String)
|
||||||
|
-> (list "(Role (X) (VarAssert state (--> (U False True) (Tuple (U False True))) (--> False (Tuple False)) (--> True (Tuple True))))"))
|
Loading…
Reference in New Issue