summaryrefslogtreecommitdiff
path: root/source4/pidl/tests/dump.pl
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2007-02-18 16:46:59 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 14:48:33 -0500
commitf9885687878560c21c569a850cb7023b062b4e33 (patch)
tree115af1011cdaed8b1f5b724b23effe78b2bf1571 /source4/pidl/tests/dump.pl
parent8cf122c2d2a0913fd9a7c55032c549598844111c (diff)
downloadsamba-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-xsource4/pidl/tests/dump.pl15
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}");
+