r20571: fix '' case
authorJelmer Vernooij <jelmer@samba.org>
Fri, 5 Jan 2007 21:26:28 +0000 (21:26 +0000)
committerGerald (Jerry) Carter <jerry@samba.org>
Wed, 10 Oct 2007 19:37:03 +0000 (14:37 -0500)
(This used to be commit 1618921a7e24213d39e042a4e2f9d5cb59997f50)

source4/pidl/tests/util.pl

index 1dde97b1928c8d156eb7195126d3e3314fdc516f..cea59af1b6c4037b69fb29decec92e1e52e87ba7 100755 (executable)
@@ -3,7 +3,7 @@
 # Published under the GNU General Public License
 use strict;
 
-use Test::More tests => 55;
+use Test::More tests => 56;
 use FindBin qw($RealBin);
 use lib "$RealBin";
 use Util;
@@ -49,7 +49,7 @@ ok(property_matches({PROPERTIES => {x => "data"}}, "x", "data"));
 ok(property_matches({PROPERTIES => {x => "data"}}, "x", "^([dat]+)\$"));
 
 # ParseExpr()
-#is("", ParseExpr("", {}));
+is(undef, ParseExpr("", {}, undef));
 is("a", ParseExpr("a", {"b" => "2"}, undef));
 is("2", ParseExpr("a", {"a" => "2"}, undef));
 is("2 * 2", ParseExpr("a*a", {"a" => "2"}, undef));