summaryrefslogtreecommitdiff
path: root/source4/pidl/lib/Parse
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2007-01-09 15:50:36 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 14:37:18 -0500
commitbf39b5e5929449b7ef8685b6c7737efd3a31843b (patch)
treee94bbccf584e68d61122effbc385ca602b6e42ee /source4/pidl/lib/Parse
parenteccb2d16dfb584ce4c38cd08235b9ab5eca6072c (diff)
downloadsamba-bf39b5e5929449b7ef8685b6c7737efd3a31843b.tar.gz
samba-bf39b5e5929449b7ef8685b6c7737efd3a31843b.tar.bz2
samba-bf39b5e5929449b7ef8685b6c7737efd3a31843b.zip
r20631: Add some tests for the ndr parser.
(This used to be commit ded25eca701b8e3e0e13e7ef64d5511d8953eb0d)
Diffstat (limited to 'source4/pidl/lib/Parse')
-rw-r--r--source4/pidl/lib/Parse/Pidl/NDR.pm3
-rw-r--r--source4/pidl/lib/Parse/Pidl/Util.pm2
2 files changed, 3 insertions, 2 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/NDR.pm b/source4/pidl/lib/Parse/Pidl/NDR.pm
index f8cae5665f..462e577cdd 100644
--- a/source4/pidl/lib/Parse/Pidl/NDR.pm
+++ b/source4/pidl/lib/Parse/Pidl/NDR.pm
@@ -35,6 +35,7 @@ use vars qw($VERSION);
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw(GetPrevLevel GetNextLevel ContainsDeferred ContainsString);
+@EXPORT_OK = qw(GetElementLevelTable ParseElement);
use strict;
use Parse::Pidl qw(warning fatal);
@@ -837,7 +838,7 @@ sub ValidProperties($$)
return unless defined $e->{PROPERTIES};
foreach my $key (keys %{$e->{PROPERTIES}}) {
- fatal($e, el_name($e) . ": unknown property '$key'")
+ warning($e, el_name($e) . ": unknown property '$key'")
unless defined($property_list{$key});
fatal($e, el_name($e) . ": property '$key' not allowed on '$t'")
diff --git a/source4/pidl/lib/Parse/Pidl/Util.pm b/source4/pidl/lib/Parse/Pidl/Util.pm
index 11e738fd13..35338492dd 100644
--- a/source4/pidl/lib/Parse/Pidl/Util.pm
+++ b/source4/pidl/lib/Parse/Pidl/Util.pm
@@ -6,7 +6,7 @@ package Parse::Pidl::Util;
require Exporter;
@ISA = qw(Exporter);
-@EXPORT = qw(has_property property_matches ParseExpr is_constant make_str print_uuid);
+@EXPORT = qw(has_property property_matches ParseExpr is_constant make_str print_uuid MyDumper);
use vars qw($VERSION);
$VERSION = '0.01';