pidl/tests/ndr_compat.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 => 2;
   8 use FindBin qw($RealBin);
   9 use lib "$RealBin";
  10 use Util;
  11 use Parse::Pidl;
  12 use Parse::Pidl::IDL;
  13
  14 sub parse_idl($)
  15 {
  16         my $idl = shift;
  17         my $pidl = Parse::Pidl::IDL::parse_string("interface echo { $idl }; ", "nofile");
  18         Parse::Pidl::NDR::Parse($pidl);
  19 }
  20
  21 test_warnings("", sub {parse_idl("void x();"); });
  22 test_warnings("nofile:0: top-level [out] pointer `x' is not a [ref] pointer\n", sub {parse_idl("void x([out,unique] int *x);"); });