8d0dccf50759103afcd8adb3f2b88420a1400736
[ira/wip.git] / source / pidl / tests / header.pl
1 #!/usr/bin/perl
2 # (C) 2007 Jelmer Vernooij <jelmer@samba.org>
3 # Published under the GNU General Public License
4 use strict;
5 use warnings;
6
7 use Test::More tests => 16;
8 use FindBin qw($RealBin);
9 use lib "$RealBin";
10 use Util;
11 use Parse::Pidl::Util qw(MyDumper);
12 use Parse::Pidl::Samba4::Header;
13 use Parse::Pidl::IDL qw(parse_string);
14 use Parse::Pidl::NDR;
15
16 sub parse_idl($)
17 {
18         my $text = shift;
19         my $idl = Parse::Pidl::IDL::parse_string($text, "nofile");
20         my $ndr = Parse::Pidl::NDR::Parse($idl);
21         return Parse::Pidl::Samba4::Header::Parse($ndr);
22 }
23
24 like(parse_idl(""), qr/\/\* header auto-generated by pidl \*\/\n/sm, "includes work");
25 like(parse_idl("interface x {}"), qr/\/\* header auto-generated by pidl \*\/\n/sm,  "simple empty interface doesn't cause overhead");
26 like(parse_idl("interface p { typedef struct { int y; } x; };"),
27      qr/.*#ifndef _HEADER_p\n#define _HEADER_p\n.+\n#endif \/\* _HEADER_p \*\/.*/ms, "ifdefs are created");
28 like(parse_idl("interface p { typedef struct { int y; } x; };"),
29      qr/struct x.*{.*int32_t y;.*}.*;/sm, "interface member generated properly");
30 like(parse_idl("interface x { void foo (void); };"),
31      qr/struct foo.*{\s+int _dummy_element;\s+};/sm, "void fn contains dummy element");
32 like(parse_idl("interface x { void foo ([in] uint32 x); };"),
33      qr/struct foo.*{\s+struct\s+{\s+uint32_t x;\s+} in;\s+};/sm, "fn in arg works");
34 like(parse_idl("interface x { void foo ([out] uint32 x); };"),
35      qr/struct foo.*{.*struct\s+{\s+uint32_t x;\s+} out;.*};/sm, "fn out arg works");
36 like(parse_idl("interface x { void foo ([in,out] uint32 x); };"),
37      qr/struct foo.*{.*struct\s+{\s+uint32_t x;\s+} in;\s+struct\s+{\s+uint32_t x;\s+} out;.*};/sm, "fn in,out arg works");
38 like(parse_idl("interface x { void foo (uint32 x); };"), qr/struct foo.*{.*struct\s+{\s+uint32_t x;\s+} in;\s+struct\s+{\s+uint32_t x;\s+} out;.*};/sm, "fn with no props implies in,out");
39 like(parse_idl("interface p { struct x { int y; }; };"),
40      qr/struct x.*{.*int32_t y;.*}.*;/sm, "interface member generated properly");
41
42 like(parse_idl("interface p { struct x { struct y z; }; };"),
43      qr/struct x.*{.*struct y z;.*}.*;/sm, "tagged type struct member");
44
45 like(parse_idl("interface p { struct x { union y z; }; };"),
46      qr/struct x.*{.*union y z;.*}.*;/sm, "tagged type union member");
47
48 like(parse_idl("interface p { struct x { }; };"),
49      qr/struct x.*{.*char _empty_;.*}.*;/sm, "empty struct");
50
51 like(parse_idl("interface p { struct x; };"),
52      qr/struct x;/sm, "struct declaration");
53
54 like(parse_idl("interface p { typedef struct x { int p; } x; };"),
55      qr/struct x.*{.*int32_t p;.*};/sm, "double struct declaration");
56
57 like(parse_idl("cpp_quote(\"some-foo\")"),
58         qr/some-foo/sm, "cpp quote");