svn commit: samba r20571 - in branches/SAMBA_4_0/source/pidl/tests: .

[jelmer at samba.org]

Author: jelmer
Date: 2007-01-05 21:26:28 +0000 (Fri, 05 Jan 2007)
New Revision: 20571

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=20571

Log:
fix '' case
Modified:
   branches/SAMBA_4_0/source/pidl/tests/util.pl


Changeset:
Modified: branches/SAMBA_4_0/source/pidl/tests/util.pl
===================================================================
--- branches/SAMBA_4_0/source/pidl/tests/util.pl	2007-01-05 21:22:15 UTC (rev 20570)
+++ branches/SAMBA_4_0/source/pidl/tests/util.pl	2007-01-05 21:26:28 UTC (rev 20571)
@@ -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", "^([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));