* contrib/vmlog: Committed vmlog 0.0.5.
[cacao.git] / contrib / vmlog / t / opt.c
1 #include "t/prolog.h"
2
3 int main(int argc,char **argv) 
4 {
5         char *p;
6         int len;
7         int r;
8         vmlog_seq_t seq,end;
9         vmlog_options *opts;
10         char **myargv;
11         int myargc;
12
13         seq = 7777;
14         r = vmlog_opt_parse_seq("123",0,&seq);
15         IS(r,0);
16         IS(seq,7777);
17         
18         seq = 7777;
19         r = vmlog_opt_parse_seq("123",1,&seq);
20         IS(r,1);
21         IS(seq,1);
22         
23         seq = 7777;
24         r = vmlog_opt_parse_seq("123",2,&seq);
25         IS(r,1);
26         IS(seq,12);
27         
28         seq = 7777;
29         r = vmlog_opt_parse_seq("123",3,&seq);
30         IS(r,1);
31         IS(seq,123);
32         
33         seq = 7777;
34         r = vmlog_opt_parse_seq("123",4,&seq);
35         IS(r,1);
36         IS(seq,123);
37         
38         seq = 7777;
39         r = vmlog_opt_parse_seq("123x",4,&seq);
40         IS(r,0);
41         IS(seq,123);
42
43         seq = 7777; end = 8888;
44         r = vmlog_opt_parse_range("345",&seq,&end);
45         IS(r,1);
46         IS(seq,345);
47         IS(end,345);
48
49         seq = 7777; end = 8888;
50         r = vmlog_opt_parse_range("345:",&seq,&end);
51         IS(r,1);
52         IS(seq,345);
53         IS(end,LLONG_MAX);
54
55         seq = 7777; end = 8888;
56         r = vmlog_opt_parse_range(":345",&seq,&end);
57         IS(r,1);
58         IS(seq,0);
59         IS(end,345);
60
61         seq = 7777; end = 8888;
62         r = vmlog_opt_parse_range("234:345",&seq,&end);
63         IS(r,1);
64         IS(seq,234);
65         IS(end,345);
66
67         seq = 7777; end = 8888;
68         r = vmlog_opt_parse_range("234x:345",&seq,&end);
69         IS(r,0);
70
71         VMLOG_XZNEW_ARRAY(myargv,char*,10);
72
73         myargv[0] = "progname";
74         myargv[1] = "xyz";
75         myargv[2] = "-vmlog:ignore";
76         myargv[3] = "testIGN";
77         myargv[4] = "bar";
78         myargv[5] = "-vmlog:prefix";
79         myargv[6] = "theprefix";
80         myargv[7] = "last";
81         myargc = 8;
82
83         opts = vmlog_opt_parse_cmd_line(&myargc,myargv);
84
85         NOTNULL(opts);
86         TRUE(strcmp(opts->progname,"progname") == 0);
87         TRUE(strcmp(opts->prefix,"theprefix") == 0);
88         TRUE(strcmp(opts->ignoreprefix,"testIGN") == 0);
89         TRUE(opts->stringprefix == NULL);
90
91         IS(myargc,4);
92         TRUE(strcmp(myargv[0],"progname") == 0);
93         TRUE(strcmp(myargv[1],"xyz") == 0);
94         TRUE(strcmp(myargv[2],"bar") == 0);
95         TRUE(strcmp(myargv[3],"last") == 0);
96
97         finished();
98 }
99
100 /* vim: noet ts=8 sw=8
101  */
102
103
104