diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2005-08-21 23:17:35 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:34:17 -0500 |
commit | efc03df292aa84edb592c22191dbf86cdf8c32d0 (patch) | |
tree | 8a72f715ced0922effaa6dc48000bb1b48b82678 /source4/pidl/tests/ndr_simple.pl | |
parent | 6e388c27d86d77f2c7f9414fbb152c246ca53022 (diff) | |
download | samba-efc03df292aa84edb592c22191dbf86cdf8c32d0.tar.gz samba-efc03df292aa84edb592c22191dbf86cdf8c32d0.tar.bz2 samba-efc03df292aa84edb592c22191dbf86cdf8c32d0.zip |
r9459: Move pidl up one level (to prevent too much nesting)
(This used to be commit e48202275e60c18e464457d200daeb953386e221)
Diffstat (limited to 'source4/pidl/tests/ndr_simple.pl')
-rwxr-xr-x | source4/pidl/tests/ndr_simple.pl | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/source4/pidl/tests/ndr_simple.pl b/source4/pidl/tests/ndr_simple.pl new file mode 100755 index 0000000000..7d48c9f4d7 --- /dev/null +++ b/source4/pidl/tests/ndr_simple.pl @@ -0,0 +1,40 @@ +#!/usr/bin/perl +# Some simple tests for pidl +# (C) 2005 Jelmer Vernooij <jelmer@samba.org> +# Published under the GNU General Public License +use strict; + +use Parse::Pidl::Test; + +my %settings = Parse::Pidl::Test::GetSettings(@ARGV); +$settings{'IDL-Arguments'} = ['--quiet', '--parse', '--parser=ndr_test.c', '--header=ndr_test.h']; +$settings{'IncludeFiles'} = ['ndr_test.h']; +$settings{'ExtraFiles'} = ['ndr_test.c']; + +Parse::Pidl::Test::test_idl( + # Name + 'UInt8', + + # Settings + \%settings, + + # IDL + 'void Test();', + + # C Test + ' + uint8_t data[] = { 0x02 }; + uint8_t result; + DATA_BLOB b; + struct ndr_pull *ndr; + + b.data = data; + b.length = 1; + ndr = ndr_pull_init_blob(&b, mem_ctx); + + if (NT_STATUS_IS_ERR(ndr_pull_uint8(ndr, NDR_SCALARS, &result))) + return 1; + + if (result != 0x02) + return 2; +'); |