BadVPN – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 process main {
2 If (@true) {
3 value({}) list;
4 var("0") i;
5 blocker() blk;
6 blk->up();
7 blk->use();
8 num_lesser(i, "100") do_more;
9 If (do_more) {
10 list->insert(i);
11 num_add(i, "1") new_i;
12 i->set(new_i);
13 blk->downup();
14 };
15 val_equal(list.length, "100") a;
16 assert(a);
17 };
18  
19 If (@true) {
20 blocker() blk;
21 assert_false(blk);
22 };
23  
24 If (@true) {
25 blocker(@false) blk;
26 assert_false(blk);
27 };
28  
29 If (@true) {
30 blocker(@true) blk;
31 assert(blk);
32 };
33  
34 exit("0");
35 }