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));