From 79190992b3820cd028c961c48bdea9b35baf13c9 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Wed, 17 Sep 2008 17:12:27 +0200
Subject: Move pidl to top-level directory.

---
 pidl/tests/ndr_compat.pl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 pidl/tests/ndr_compat.pl

(limited to 'pidl/tests/ndr_compat.pl')

diff --git a/pidl/tests/ndr_compat.pl b/pidl/tests/ndr_compat.pl
new file mode 100755
index 0000000000..355e7f6732
--- /dev/null
+++ b/pidl/tests/ndr_compat.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+# (C) 2007 Jelmer Vernooij <jelmer@samba.org>
+# Published under the GNU General Public License
+use strict;
+
+use Test::More tests => 2;
+use FindBin qw($RealBin);
+use lib "$RealBin";
+use Util; 
+use Parse::Pidl;
+use Parse::Pidl::IDL;
+
+sub parse_idl($) 
+{
+	my $idl = shift;
+	my $pidl = Parse::Pidl::IDL::parse_string("interface echo { $idl }; ", "nofile");
+	Parse::Pidl::NDR::Parse($pidl);
+}
+
+test_warnings("", sub {parse_idl("void x();"); });
+test_warnings("nofile:0: top-level [out] pointer `x' is not a [ref] pointer\n", sub {parse_idl("void x([out,unique] int *x);"); });
-- 
cgit