diff options
author | Günther Deschner <gd@samba.org> | 2009-02-17 02:35:00 +0100 |
---|---|---|
committer | Karolin Seeger <kseeger@samba.org> | 2009-02-17 09:01:46 +0100 |
commit | a9fcb593fd0b8a2e9d27870515a5470072672686 (patch) | |
tree | 801439adc8147b4a1954a957282e6bf2f2b2147a /source/pidl/tests/ndr_compat.pl | |
parent | 0cc465a5086418a90dc7b64894ef33bf4d1ae16e (diff) | |
download | samba-a9fcb593fd0b8a2e9d27870515a5470072672686.tar.gz |
pidl: add copy of pidl to 3-3-test in order to regenerate librpc code.
pidl's reference is 79190992b3820cd028c961c48bdea9b35baf13c9 here.
Guenther
(cherry picked from commit 55d1dacf4d49abcaace17a5f8a200c319e0389eb)
Diffstat (limited to 'source/pidl/tests/ndr_compat.pl')
-rwxr-xr-x | source/pidl/tests/ndr_compat.pl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/source/pidl/tests/ndr_compat.pl b/source/pidl/tests/ndr_compat.pl new file mode 100755 index 00000000000..967509cbf82 --- /dev/null +++ b/source/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);"); }); |