Remove EJS backend for PIDL, as we don't have EJS anymore.
[kai/samba.git] / 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