1#!/usr/bin/perl 2# (C) 2007 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::Dump qw(DumpStruct); 12 13is (DumpStruct({ NAME => "foo", ELEMENTS => []}), 14 "struct foo {\n}"); 15 16