diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2005-12-24 23:32:50 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:47:42 -0500 |
commit | 68ef82aac72c351f6e166b92bbb4573e8bcdbc86 (patch) | |
tree | b4a7b5518eb5f525f17990b240f121a62283ec29 /source4/pidl/tests/ndr_simple.pl | |
parent | ebfbb2a7abe33e47af48d69164c37f4c24b7f8ed (diff) | |
download | samba-68ef82aac72c351f6e166b92bbb4573e8bcdbc86.tar.gz samba-68ef82aac72c351f6e166b92bbb4573e8bcdbc86.tar.bz2 samba-68ef82aac72c351f6e166b92bbb4573e8bcdbc86.zip |
r12464: Add simple IDL parsing tests for pidl using the standard perl
testing framework (Test::Simple, distributed with perl itself).
Run these tests from 'make test'
(This used to be commit 975d8816db6697dab828941b69a740e3a0a2c272)
Diffstat (limited to 'source4/pidl/tests/ndr_simple.pl')
-rwxr-xr-x | source4/pidl/tests/ndr_simple.pl | 68 |
1 files changed, 36 insertions, 32 deletions
diff --git a/source4/pidl/tests/ndr_simple.pl b/source4/pidl/tests/ndr_simple.pl index 2c2c910a56..96e213ede9 100755 --- a/source4/pidl/tests/ndr_simple.pl +++ b/source4/pidl/tests/ndr_simple.pl @@ -4,41 +4,45 @@ # Published under the GNU General Public License use strict; -use Parse::Pidl::Test; +use Test::Simple tests => 4; +use FindBin qw($RealBin); +use lib "$RealBin/../lib"; use Parse::Pidl::IDL; use Parse::Pidl::NDR; -use Parse::Pidl::Samba::NDR; +use Parse::Pidl::Samba4::NDR::Parser; -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']; - -my $pidl = Parse::Pidl::IDL::parse_string('void Test();'); +my $pidl = Parse::Pidl::IDL::parse_string( +"interface test { void Test(); }; ", "<test>"); +ok (defined($pidl)); my $pndr = Parse::Pidl::NDR::Parse($pidl); +ok(defined($pndr)); +my ($header,$parser) = Parse::Pidl::Samba4::NDR::Parser($pndr); +ok(defined($header)); +ok(defined($parser)); -Parse::Pidl::Test::test_idl( - # Name - 'UInt8', - - # Settings - \%settings, - - - # 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; -'); +#Parse::Pidl::Test::test_idl( +# # Name +# 'UInt8', +# +# # Settings +# \%settings, +# +# +# # 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; +#'); |