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 => 27;
   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 qw(
  13         GenerateFunctionInEnv GenerateFunctionOutEnv GenerateStructEnv
  14         EnvSubstituteValue);
  15 use Parse::Pidl::IDL qw(parse_string);
  16 use Parse::Pidl::NDR;
  17
  18 sub parse_idl($)
  19 {
  20         my $text = shift;
  21         my $idl = Parse::Pidl::IDL::parse_string($text, "nofile");
  22         my $ndr = Parse::Pidl::NDR::Parse($idl);
  23         return Parse::Pidl::Samba4::Header::Parse($ndr);
  24 }
  25
  26 like(parse_idl(""), qr/\/\* header auto-generated by pidl \*\/\n/sm, "includes work");
  27 like(parse_idl("interface x {}"), qr/\/\* header auto-generated by pidl \*\/\n/sm,  "simple empty interface doesn't cause overhead");
  28 like(parse_idl("interface p { typedef struct { int y; } x; };"),
  29      qr/.*#ifndef _HEADER_p\n#define _HEADER_p\n.+\n#endif \/\* _HEADER_p \*\/.*/ms, "ifdefs are created");
  30 like(parse_idl("interface p { typedef struct { int y; } x; };"),
  31      qr/struct x.*{.*int32_t y;.*}.*;/sm, "interface member generated properly");
  32 like(parse_idl("interface x { void foo (void); };"),
  33      qr/struct foo.*{\s+int _dummy_element;\s+};/sm, "void fn contains dummy element");
  34 like(parse_idl("interface x { void foo ([in] uint32 x); };"),
  35      qr/struct foo.*{\s+struct\s+{\s+uint32_t x;\s+} in;\s+};/sm, "fn in arg works");
  36 like(parse_idl("interface x { void foo ([out] uint32 x); };"),
  37      qr/struct foo.*{.*struct\s+{\s+uint32_t x;\s+} out;.*};/sm, "fn out arg works");
  38 like(parse_idl("interface x { void foo ([in,out] uint32 x); };"),
  39      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");
  40 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");
  41 like(parse_idl("interface p { struct x { int y; }; };"),
  42      qr/struct x.*{.*int32_t y;.*}.*;/sm, "interface member generated properly");
  43
  44 like(parse_idl("interface p { struct x { struct y z; }; };"),
  45      qr/struct x.*{.*struct y z;.*}.*;/sm, "tagged type struct member");
  46
  47 like(parse_idl("interface p { struct x { union y z; }; };"),
  48      qr/struct x.*{.*union y z;.*}.*;/sm, "tagged type union member");
  49
  50 like(parse_idl("interface p { struct x { }; };"),
  51      qr/struct x.*{.*char _empty_;.*}.*;/sm, "empty struct");
  52
  53 like(parse_idl("interface p { struct x; };"),
  54      qr/struct x;/sm, "struct declaration");
  55
  56 like(parse_idl("interface p { typedef struct x { int p; } x; };"),
  57      qr/struct x.*{.*int32_t p;.*};/sm, "double struct declaration");
  58
  59 like(parse_idl("cpp_quote(\"some-foo\")"),
  60         qr/some-foo/sm, "cpp quote");
  61
  62 # Make sure GenerateFunctionInEnv and GenerateFunctionOutEnv work
  63 my $fn = { ELEMENTS => [ { DIRECTION => ["in"], NAME => "foo" } ] };
  64 is_deeply({ "foo" => "r->in.foo" }, GenerateFunctionInEnv($fn));
  65
  66 $fn = { ELEMENTS => [ { DIRECTION => ["out"], NAME => "foo" } ] };
  67 is_deeply({ "foo" => "r->out.foo" }, GenerateFunctionOutEnv($fn));
  68
  69 $fn = { ELEMENTS => [ { DIRECTION => ["out", "in"], NAME => "foo" } ] };
  70 is_deeply({ "foo" => "r->in.foo" }, GenerateFunctionInEnv($fn));
  71
  72 $fn = { ELEMENTS => [ { DIRECTION => ["out", "in"], NAME => "foo" } ] };
  73 is_deeply({ "foo" => "r->out.foo" }, GenerateFunctionOutEnv($fn));
  74
  75 $fn = { ELEMENTS => [ { DIRECTION => ["in"], NAME => "foo" } ] };
  76 is_deeply({ "foo" => "r->in.foo" }, GenerateFunctionOutEnv($fn));
  77
  78 $fn = { ELEMENTS => [ { DIRECTION => ["out"], NAME => "foo" } ] };
  79 is_deeply({ }, GenerateFunctionInEnv($fn));
  80
  81 $fn = { ELEMENTS => [ { NAME => "foo" }, { NAME => "bar" } ] };
  82 is_deeply({ foo => "r->foo", bar => "r->bar", this => "r" },
  83                 GenerateStructEnv($fn, "r"));
  84
  85 $fn = { ELEMENTS => [ { NAME => "foo" }, { NAME => "bar" } ] };
  86 is_deeply({ foo => "some->complex.variable->foo",
  87                     bar => "some->complex.variable->bar",
  88                         this => "some->complex.variable" },
  89                 GenerateStructEnv($fn, "some->complex.variable"));
  90
  91 $fn = { ELEMENTS => [ { NAME => "foo", PROPERTIES => { value => 3 }} ] };
  92
  93 my $env = GenerateStructEnv($fn, "r");
  94 EnvSubstituteValue($env, $fn);
  95 is_deeply($env, { foo => 3, this => "r" });
  96
  97 $fn = { ELEMENTS => [ { NAME => "foo" }, { NAME => "bar" } ] };
  98 $env = GenerateStructEnv($fn, "r");
  99 EnvSubstituteValue($env, $fn);
 100 is_deeply($env, { foo => 'r->foo', bar => 'r->bar', this => "r" });
 101
 102 $fn = { ELEMENTS => [ { NAME => "foo", PROPERTIES => { value => 0 }} ] };
 103
 104 $env = GenerateStructEnv($fn, "r");
 105 EnvSubstituteValue($env, $fn);
 106 is_deeply($env, { foo => 0, this => "r" });
 107
 108