pidl/tests/samba3-srv.pl

   1 #!/usr/bin/perl
   2 # (C) 2008 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 => 1;
   8 use FindBin qw($RealBin);
   9 use lib "$RealBin";
  10 use Util;
  11 use Parse::Pidl::Util qw(MyDumper has_property);
  12 use Parse::Pidl::Samba3::ServerNDR qw(DeclLevel);
  13
  14 my $l = { TYPE => "DATA", DATA_TYPE => "uint32" };
  15 my $e = { FILE => "foo", LINE => 0, PROPERTIES => { }, TYPE => "uint32",
  16           LEVELS => [ $l ] };
  17
  18 is("uint32_t", DeclLevel($e, 0));