sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2024-12-23 17:34:34 +03:00
Code

r20545: Fix is_constant().

Browse Source 
(This used to be commit ae9b0895e8)
This commit is contained in:
Jelmer Vernooij 2007-01-05 14:25:21 +00:00 committed by Gerald (Jerry) Carter
parent 362d4b14ae
commit 306dc32687
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
source4/pidl/lib/Parse/Pidl/Util.pm
View File

@ -54,9 +54,8 @@ sub property_matches($$$)
sub is_constant($)
{
my $s = shift;
if (defined $s && $s =~ /^\d$/) {
return 1;
}
return 1 if (defined $s && $s =~ /^\d+$/);
return 1 if (defined $s && $s =~ /^0x[0-9A-Fa-f]+$/);
return 0;
}

6
source4/pidl/tests/util.pl
View File

@ -3,7 +3,7 @@
# Published under the GNU General Public License
use strict;
use Test::More tests => 25;
use Test::More tests => 29;
use FindBin qw($RealBin);
use lib "$RealBin/../lib";
use Parse::Pidl::Util;
@ -16,6 +16,10 @@ is(undef, has_property({PROPERTIES => {foo => undef}}, "foo"));
# is_constant()
ok(is_constant("2"));
ok(is_constant("256"));
ok(is_constant("0x400"));
ok(is_constant("0x4BC"));
ok(not is_constant("0x4BGC"));
ok(not is_constant("str"));
ok(not is_constant("2 * expr"));