Merge branch 'master' of ctdb into 'master' of samba
[samba.git] / pidl / tests / parse_idl.pl
1 #!/usr/bin/perl
2 # Some simple tests for pidls parsing routines
3 # (C) 2005 Jelmer Vernooij <jelmer@samba.org>
4 # Published under the GNU General Public License
5 use strict;
6
7 use Test::More tests => 65 * 2 + 7;
8 use FindBin qw($RealBin);
9 use lib "$RealBin";
10 use Util qw(test_errors);
11 use Parse::Pidl::IDL;
12 use Parse::Pidl::NDR;
13
14 sub testok($$)
15 {
16         my ($name, $data) = @_;
17         
18         test_errors("", sub {
19                 my $pidl = Parse::Pidl::IDL::parse_string($data, "<$name>");
20                 ok (defined($pidl), $name);
21         });
22 }
23
24 sub testfail($$$)
25 {
26         my ($name, $data, $error) = @_;
27         
28         test_errors($error, sub {
29                 my $pidl = Parse::Pidl::IDL::parse_string($data, "<$name>");
30         
31                 ok ((not defined $pidl), $name);
32         });
33 }
34
35 testfail "unknowntag", "bla test {};", 
36          "<unknowntag>:0: Syntax error near 'bla'\n";
37 testok "test1", "interface test { void Test(); }; ";
38 testok "voidtest", "interface test { int Testx(void); }; ";
39 testfail "voidtest", "interface test { Test(); }; ", 
40          "<voidtest>:0: Syntax error near '('\n";
41 testok "argtest", "interface test { int Test(int a, long b, uint32 c); }; ";
42 testok "array1", "interface test { int Test(int a[]); };";
43 testok "array2", "interface test { int Test(int a[2]); };";
44 testok "array3", "interface test { int Test(int a[b]); };";
45 testfail "array4", "interface test { int Test(int[] a); };", 
46          "<array4>:0: Syntax error near '['\n";
47 testok "ptr1", "interface test { int Test(int *a); };";
48 testok "ptr2", "interface test { int Test(int **a); };";
49 testok "ptr3", "interface test { int Test(int ***a); };";
50 testfail "empty1", "interface test { };", "<empty1>:0: Syntax error near '}'\n";
51 testfail "empty2", "", "";
52 testok "attr1", "[uuid(\"myuuid\"),attr] interface test { int Test(int ***a); };";
53 testok "attr2", "interface test { [public] int Test(); };";
54 testok "attr3", "[attr1] [attr2] interface test { [public] int Test(); };";
55 testok "multfn", "interface test { int test1(); int test2(); };";
56 testok "multif", "interface test { int test1(); }; interface test2 { int test2(); };";
57 testok "tdstruct1", "interface test { typedef struct { } foo; };";
58 testok "tdstruct2", "interface test { typedef struct { int a; } foo; };";
59 testok "tdstruct3", "interface test { typedef struct { int a; int b; } foo; };";
60 testfail "tdstruct4", "interface test { typedef struct { int a, int b; } foo; };", 
61          "<tdstruct4>:0: Syntax error near ','\n";
62 testok "struct1", "interface test { struct x { }; };";
63 testok "struct2", "interface test { struct x { int a; }; };";
64 testok "struct3", "interface test { struct x { int a; int b; }; };";
65 testfail "struct4", "interface test { struct x { int a, int b; }; };", 
66          "<struct4>:0: Syntax error near ','\n";
67 testfail "struct5", "interface test { struct { int a; } x; };", 
68          "<struct5>:0: Syntax error near 'x'\n";
69 testok "tdunion1", "interface test { typedef union { } a; };";
70 testok "tdunion2", "interface test { typedef union { int a; } a; };";
71 testok "union1", "interface test { union a { }; };";
72 testok "union2", "interface test { union x { int a; }; };";
73 testfail "union3", "interface test { union { int a; } x; };", 
74        "<union3>:0: Syntax error near 'x'\n";
75 testok "typedef1", "interface test { typedef int a; };";
76 testfail "typedef2", "interface test { typedef x; };", 
77          "<typedef2>:0: Syntax error near ';'\n";
78 testok "tdenum1", "interface test { typedef enum { A=1, B=2, C} a; };";
79 testok "enum1", "interface test { enum a { A=1, B=2, C}; };";
80 testfail "enum2", "interface test { enum { A=1, B=2, C} a; };", 
81          "<enum2>:0: Syntax error near 'a'\n";
82 testok "nested1", "interface test { struct x { struct { int a; } z; }; };";
83 testok "nested2", "interface test { struct x { struct y { int a; } z; }; };";
84 testok "bitmap1", "interface test { bitmap x { a=1 }; };";
85 testok "unsigned", "interface test { struct x { unsigned short y; }; };";
86 testok "struct-property", "interface test { [public] struct x { short y; }; };";
87 testok "signed", "interface test { struct x { signed short y; }; };";
88 testok "declarg", "interface test { void test(struct { int x; } a); };";
89 testok "structarg", "interface test { void test(struct a b); };";
90 testfail "structargmissing", "interface test { void test(struct a); };",
91         "<structargmissing>:0: Syntax error near ')'\n";
92 testok "structqual", "interface test { struct x { struct y z; }; };";
93 testok "unionqual", "interface test { struct x { union y z; }; };";
94 testok "enumqual", "interface test { struct x { enum y z; }; };";
95 testok "bitmapqual", "interface test { struct x { bitmap y z; }; };";
96 testok "emptystructdecl", "interface test { struct x; };";
97 testok "emptyenumdecl", "interface test { enum x; };";
98 testok "emptytdstructdecl", "interface test { typedef struct x y; };";
99 testok "import", "import \"foo.idl\";";
100 testok "include", "include \"foo.h\";";
101 testfail "import-noquotes", "import foo.idl;", 
102                 "<import-noquotes>:0: Syntax error near 'foo'\n";
103 testfail "include-noquotes", "include foo.idl;", 
104          "<include-noquotes>:0: Syntax error near 'foo'\n";
105 testok "importlib", "importlib \"foo.idl\";";
106 testfail "import-nosemicolon", "import \"foo.idl\"", 
107          "<import-nosemicolon>:0: Syntax error near 'foo.idl'\n";
108 testok "import-multiple", "import \"foo.idl\", \"bar.idl\";";
109 testok "include-multiple", "include \"foo.idl\", \"bar.idl\";";
110 testok "empty-struct", "interface test { struct foo { }; }";
111 testok "typedef-double", "interface test { typedef struct foo { } foo; }";
112 testok "cpp-quote", "cpp_quote(\"bla\")";
113
114 my $x = Parse::Pidl::IDL::parse_string("interface foo { struct x {}; }", "<foo>");
115
116 is_deeply($x, [ {
117         'TYPE' => 'INTERFACE',
118         'NAME' => 'foo',
119         'DATA' => [ {
120                 'TYPE' => 'STRUCT',
121                 'NAME' => 'x',
122                 'ELEMENTS' => [],
123                 'FILE' => '<foo>',
124                 'LINE' => 0
125         } ],
126         'FILE' => '<foo>',
127         'LINE' => 0
128 }]);
129
130 $x = Parse::Pidl::IDL::parse_string("interface foo { struct x; }", "<foo>");
131 is_deeply($x, [ {
132         'TYPE' => 'INTERFACE',
133         'NAME' => 'foo',
134         'DATA' => [ {
135                 'TYPE' => 'STRUCT',
136                 'NAME' => 'x',
137                 'FILE' => '<foo>',
138                 'LINE' => 0
139         } ],
140         'FILE' => '<foo>',
141         'LINE' => 0
142 }]);
143
144 $x = Parse::Pidl::IDL::parse_string("cpp_quote(\"foobar\")", "<quote>");
145 is_deeply($x, [ {
146         'TYPE' => 'CPP_QUOTE',
147         'DATA' => '"foobar"',
148         'FILE' => '<quote>',
149         'LINE' => 0
150 }]);
151
152 # A typedef of a struct without body
153 $x = Parse::Pidl::IDL::parse_string("interface foo { typedef struct x y; }", "<foo>");
154
155 is_deeply($x, [ {
156         'TYPE' => 'INTERFACE',
157         'NAME' => 'foo',
158         'DATA' => [ {
159                 'TYPE' => 'TYPEDEF',
160                 'NAME' => 'y',
161                 'POINTERS' => 0,
162                 'DATA' => {
163                         'TYPE' => 'STRUCT',
164                         'NAME' => 'x',
165                         'FILE' => '<foo>',
166                         'LINE' => 0,
167                 },
168                 'FILE' => '<foo>',
169                 'LINE' => 0,
170         } ],
171         'FILE' => '<foo>',
172         'LINE' => 0
173 }]);
174
175 # A typedef of a struct with empty body
176 $x = Parse::Pidl::IDL::parse_string("interface foo { typedef struct {} y; }", "<foo>");
177
178 is_deeply($x, [ {
179         'TYPE' => 'INTERFACE',
180         'NAME' => 'foo',
181         'DATA' => [ {
182                 'TYPE' => 'TYPEDEF',
183                 'NAME' => 'y',
184                 'POINTERS' => 0,
185                 'DATA' => {
186                         'TYPE' => 'STRUCT',
187                         'ELEMENTS' => [],
188                         'FILE' => '<foo>',
189                         'LINE' => 0
190                 },
191                 'FILE' => '<foo>',
192                 'LINE' => 0
193         } ],
194         'FILE' => '<foo>',
195         'LINE' => 0
196 }]);
197
198 # A typedef of a bitmap with no body
199 $x = Parse::Pidl::IDL::parse_string("interface foo { typedef bitmap x y; }", "<foo>");
200
201 is_deeply($x, [ {
202         'TYPE' => 'INTERFACE',
203         'NAME' => 'foo',
204         'DATA' => [ {
205                 'TYPE' => 'TYPEDEF',
206                 'NAME' => 'y',
207                 'POINTERS' => 0,
208                 'DATA' => {
209                         'TYPE' => 'BITMAP',
210                         'NAME' => 'x',
211                         'FILE' => '<foo>',
212                         'LINE' => 0
213                 },
214                 'FILE' => '<foo>',
215                 'LINE' => 0
216         } ],
217         'FILE' => '<foo>',
218         'LINE' => 0
219 }]);
220
221
222 # A typedef of a union with no body
223 $x = Parse::Pidl::IDL::parse_string("interface foo { typedef union x y; }", "<foo>");
224
225 is_deeply($x, [ {
226         'TYPE' => 'INTERFACE',
227         'NAME' => 'foo',
228         'DATA' => [ {
229                 'TYPE' => 'TYPEDEF',
230                 'NAME' => 'y',
231                 'POINTERS' => 0,
232                 'DATA' => {
233                         'TYPE' => 'UNION',
234                         'NAME' => 'x',
235                         'FILE' => '<foo>',
236                         'LINE' => 0
237                 },
238                 'FILE' => '<foo>',
239                 'LINE' => 0
240         } ],
241         'FILE' => '<foo>',
242         'LINE' => 0
243 }]);