BadVPN – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 process main {
2 explode("FOO", "aaaFOObbbFOOcccFOOddd") l;
3 val_equal(l, {"aaa", "bbb", "ccc", "ddd"}) a;
4 assert(a);
5  
6 compile_search("FOO") comp;
7 comp->explode("aaaFOObbbFOOcccFOOddd") l;
8 val_equal(l, {"aaa", "bbb", "ccc", "ddd"}) a;
9 assert(a);
10  
11 explode("FOO", "FOObbbFOOFOO") l;
12 val_equal(l, {"", "bbb", "", ""}) a;
13 assert(a);
14  
15 explode("FOO", "foo") l;
16 val_equal(l, {"foo"}) a;
17 assert(a);
18  
19 explode("FOO", "FOO") l;
20 val_equal(l, {"", ""}) a;
21 assert(a);
22  
23 explode("participate in parachute", "parachute in participation of participate in parachuteparparticipate in parachute participate in parachut") l;
24 val_equal(l, {"parachute in participation of ", "par", " participate in parachut"}) a;
25 assert(a);
26  
27 concat("aaaFOObbbFOOcccFOOddd") e;
28 explode("FOO", e) l;
29 val_equal(l, {"aaa", "bbb", "ccc", "ddd"}) a;
30 assert(a);
31  
32 exit("0");
33 }