jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

some tests.

Browse source
This commit is contained in:
Léonard Gérard 2011-05-18 09:59:58 +02:00
parent fbfa6eda1a
commit 96272339e4
3 changed files with 31 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
test/bad/clock_causality.ept Normal file
View file

@ -0,0 +1,13 @@
node cross<<l:int>>(x:int) returns (y:int; c:bool)
let
c = (0 fby y) = l;
y = merge c (true -> x) (false -> 0);
tel
node main(x:int) returns (z:int)
var y,t : int; c : bool;
let
y = 0 fby (y+1);
(t,c) = cross<<4>>(y);
z = merge c (true -> y + t) (false -> 0)
tel

5
test/bad/clock_dep.ept Normal file
View file

@ -0,0 +1,5 @@
node cross<<l:int>>(x:int; x2:int; c:bool) returns (y:int; c2:bool)
let
c2 = c;
y = x + (x2 when c2) ;
tel

13
test/good/clock_causality.ept Normal file
View file

@ -0,0 +1,13 @@
node cross<<l:int>>(x:int) returns (y:int; c:bool)
let
c = x = l;
y = x when c;
tel
node main(x:int) returns (z:int)
var y,t : int; c : bool;
let
y = 0 fby (y+1);
(t,c) = cross<<4>>(x);
z = merge c (true -> y + t) (false -> 0)
tel