heptagon/test/good/contrenum.ept
Gwenaël Delaval fd4dffef62 Adding tests
2015-09-04 17:33:49 +02:00

15 lines
No EOL
176 B
Text

type mode = Idle | Active
node f(x:bool) returns (y:bool)
contract
enforce (not y)
with (c:mode)
let
switch c
| Idle do y = false
| Active do y = true
end
tel