1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
defproc aaa ($aaa, $bb=hihi) {
defstyle param [line.color=$aaa, text.color=$aaa, arrow.color=$aaa];
a->b [param, label=$bb];
};
defproc bbb ($aaa, $bb) {
a=>b [arrow, color=$aaa, label=$bb];
};
defproc ccc ($aaa, $bb) {
a>>b [color=$aaa, label=$dd];
};
---:error cases;
replay aaa;
replay aaa();
replay aaa(, huhu);
replay aaa(gaga, huhu, );
replay aaa(, , );
replay bbb;
replay bbb();
replay bbb(4);
replay bbb(, huhu);
replay bbb(gaga, huhu, );
replay bbb(, , );
replay ccc;
replay ccc(a,b);
---:good replay calls;
replay aaa(blue);
replay bbb(red, haha);
replay aaa(bad_color);
|
