2 # Some simple tests for pidl
3 # (C) 2005 Jelmer Vernooij <jelmer@samba.org>
4 # Published under the GNU General Public License
9 my %settings = Parse::Pidl::Test::GetSettings(@ARGV);
10 $settings{'IDL-Arguments'} = ['--quiet', '--parse', '--parser=ndr_test.c', '--header=ndr_test.h'];
11 $settings{'IncludeFiles'} = ['ndr_test.h'];
12 $settings{'ExtraFiles'} = ['ndr_test.c'];
14 Parse::Pidl::Test::test_idl(
26 uint8_t data[] = { 0x02 };
33 ndr = ndr_pull_init_blob(&b, mem_ctx);
35 if (NT_STATUS_IS_ERR(ndr_pull_uint8(ndr, NDR_SCALARS, &result)))