From 306dc32687e68dbf388187ec927444fb4a139158 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Fri, 5 Jan 2007 14:25:21 +0000
Subject: r20545: Fix is_constant(). (This used to be commit
 ae9b0895e8b7fd98335ece82aae3e391b94d2ec9)

---
 source4/pidl/tests/util.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'source4/pidl/tests')

diff --git a/source4/pidl/tests/util.pl b/source4/pidl/tests/util.pl
index 7c51b72196..f32ab41e8d 100755
--- a/source4/pidl/tests/util.pl
+++ b/source4/pidl/tests/util.pl
@@ -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"));
 
-- 
cgit