s3:lib/events: make use of samba_tevent_set_debug()
[Samba/gebeck_regimport.git] / pidl / tests / dump.pl
blobd1a56f0973571f64f9c199903c85396b86f0e991
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;
7 use Test::More tests => 1;
8 use FindBin qw($RealBin);
9 use lib "$RealBin";
10 use Util;
11 use Parse::Pidl::Dump qw(DumpStruct);
13 is (DumpStruct({ NAME => "foo", ELEMENTS => []}),
14 "struct foo {\n}");