BadVPN – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 process main {
2 var("0123456789") str;
3 concat(str) external_str;
4  
5 call("do_test", {"_caller.str"});
6 call("do_test", {"_caller.external_str"});
7  
8 exit("0");
9 }
10  
11 template do_test {
12 alias(_arg0) str;
13  
14 substr(str, "0") sub;
15 val_equal(sub, "0123456789") a;
16 assert(a);
17  
18 substr(str, "2") sub;
19 val_equal(sub, "23456789") a;
20 assert(a);
21  
22 substr(str, "3", "0") sub;
23 val_equal(sub, "") a;
24 assert(a);
25  
26 substr(str, "3", "6") sub;
27 val_equal(sub, "345678") a;
28 assert(a);
29  
30 substr(str, "3", "7") sub;
31 val_equal(sub, "3456789") a;
32 assert(a);
33  
34 substr(str, "3", "8") sub;
35 val_equal(sub, "3456789") a;
36 assert(a);
37 }