diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2007-02-18 16:46:59 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 14:48:33 -0500 |
commit | f9885687878560c21c569a850cb7023b062b4e33 (patch) | |
tree | 115af1011cdaed8b1f5b724b23effe78b2bf1571 /source4/pidl/tests/dump.pl | |
parent | 8cf122c2d2a0913fd9a7c55032c549598844111c (diff) | |
download | samba-f9885687878560c21c569a850cb7023b062b4e33.tar.gz samba-f9885687878560c21c569a850cb7023b062b4e33.tar.bz2 samba-f9885687878560c21c569a850cb7023b062b4e33.zip |
r21431: More tests, work on support in wireshark for tagged types.
(This used to be commit a91e624af22aae5b460ccf94d2540b8780f90070)
Diffstat (limited to 'source4/pidl/tests/dump.pl')
-rwxr-xr-x | source4/pidl/tests/dump.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/source4/pidl/tests/dump.pl b/source4/pidl/tests/dump.pl new file mode 100755 index 0000000000..d1a56f0973 --- /dev/null +++ b/source4/pidl/tests/dump.pl @@ -0,0 +1,15 @@ +#!/usr/bin/perl +# (C) 2007 Jelmer Vernooij <jelmer@samba.org> +# Published under the GNU General Public License +use strict; +use warnings; + +use Test::More tests => 1; +use FindBin qw($RealBin); +use lib "$RealBin"; +use Util; +use Parse::Pidl::Dump qw(DumpStruct); + +is (DumpStruct({ NAME => "foo", ELEMENTS => []}), + "struct foo {\n}"); + |