librpc: Shorten dcerpc_binding_handle_call a bit
[Samba/gebeck_regimport.git] / pidl / tests / ndr_compat.pl
blob355e7f67323c2381222e8f768db1e6b24c374701
1 #!/usr/bin/perl
2 # (C) 2007 Jelmer Vernooij <jelmer@samba.org>
3 # Published under the GNU General Public License
4 use strict;
6 use Test::More tests => 2;
7 use FindBin qw($RealBin);
8 use lib "$RealBin";
9 use Util;
10 use Parse::Pidl;
11 use Parse::Pidl::IDL;
13 sub parse_idl($)
15 my $idl = shift;
16 my $pidl = Parse::Pidl::IDL::parse_string("interface echo { $idl }; ", "nofile");
17 Parse::Pidl::NDR::Parse($pidl);
20 test_warnings("", sub {parse_idl("void x();"); });
21 test_warnings("nofile:0: top-level [out] pointer `x' is not a [ref] pointer\n", sub {parse_idl("void x([out,unique] int *x);"); });