pidl/tests/dump.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 => 1;
   8 use FindBin qw($RealBin);
   9 use lib "$RealBin";
  10 use Util;
  11 use Parse::Pidl::Dump qw(DumpStruct);
  12
  13 is (DumpStruct({ NAME => "foo", ELEMENTS => []}),
  14         "struct foo {\n}");
  15