diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2007-01-05 14:55:26 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 14:36:51 -0500 |
commit | 2963c639871665ced7ee0b5afad3406e7496b233 (patch) | |
tree | 3ec42ed5e96e027cd2139fa35b1eaf33cb49639e /source4/pidl/tests/ndr_compat.pl | |
parent | 306dc32687e68dbf388187ec927444fb4a139158 (diff) | |
download | samba-2963c639871665ced7ee0b5afad3406e7496b233.tar.gz samba-2963c639871665ced7ee0b5afad3406e7496b233.tar.bz2 samba-2963c639871665ced7ee0b5afad3406e7496b233.zip |
r20547: Add tests for expected errors/warnings.
(This used to be commit 2d960d4d7b0bc39c3ec4c2face546adc2cb345ee)
Diffstat (limited to 'source4/pidl/tests/ndr_compat.pl')
-rwxr-xr-x | source4/pidl/tests/ndr_compat.pl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/source4/pidl/tests/ndr_compat.pl b/source4/pidl/tests/ndr_compat.pl new file mode 100755 index 0000000000..735d929e27 --- /dev/null +++ b/source4/pidl/tests/ndr_compat.pl @@ -0,0 +1,27 @@ +#!/usr/bin/perl +# (C) 2007 Jelmer Vernooij <jelmer@samba.org> +# Published under the GNU General Public License +use strict; + +use Test::More tests => 3; +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);"); }); + +test_warnings("nofile:0: pointer_default_top() is a pidl extension and should not be used\n", sub { + my $pidl = Parse::Pidl::IDL::parse_string("[pointer_default_top(unique)] interface echo { void x(); }; ", "nofile"); + Parse::Pidl::NDR::Parse($pidl); +}); + |