BadVPN – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 process foo {
2 value("0123456789") str;
3  
4 str->substr("0") sub;
5 strcmp(sub, str) a;
6 assert(a);
7  
8 str->substr("1") sub;
9 strcmp(sub, "123456789") a;
10 assert(a);
11  
12 str->substr("1", "0") sub;
13 strcmp(sub, "") a;
14 assert(a);
15  
16 str->substr("1", "9") sub;
17 strcmp(sub, "123456789") a;
18 assert(a);
19  
20 str->substr("1", "8") sub;
21 strcmp(sub, "12345678") a;
22 assert(a);
23  
24 exit("0");
25 }