1#!/usr/bin/perl 2# (C) 2008 Jelmer Vernooij <jelmer@samba.org> 3# Published under the GNU General Public License 4use strict; 5use warnings; 6 7use Test::More tests => 1; 8use FindBin qw($RealBin); 9use lib "$RealBin"; 10use Util; 11use Parse::Pidl::Util qw(MyDumper has_property); 12use Parse::Pidl::Samba3::ServerNDR qw(DeclLevel); 13 14my $l = { TYPE => "DATA", DATA_TYPE => "uint32" }; 15my $e = { FILE => "foo", LINE => 0, PROPERTIES => { }, TYPE => "uint32", 16 LEVELS => [ $l ] }; 17 18is("uint32_t", DeclLevel($e, 0)); 19