[Http-webtest-commits] HTTP-WebTest-Plugin-DateTest/t 02_dateparsing.t,1.2,1.3

[Johannes la P. <joe...@us...>]

Update of /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/t
In directory sc8-pr-cvs1:/tmp/cvs-serv25712/t

Modified Files:
	02_dateparsing.t 
Log Message:
Fix glitch for empty 'date' string, added test cases

Index: 02_dateparsing.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/t/02_dateparsing.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** 02_dateparsing.t	26 Dec 2002 21:17:15 -0000	1.2
--- 02_dateparsing.t	30 Dec 2002 17:22:20 -0000	1.3
***************
*** 1,3 ****
! use Test::More tests => 11;
  
  # for testing purposes configure ourselves with specific timezone
--- 1,3 ----
! use Test::More tests => 16;
  
  # for testing purposes configure ourselves with specific timezone
***************
*** 59,61 ****
--- 59,81 ----
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'German');
  is($ret, 1016576700, "German with leading/trailing space '$date'");
+ 
+ $date = "Ceci n'est pas une date: 99-33-3333";
+ $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date);
+ is($ret, undef, "No date string '$date'");
+ 
+ $date = "";
+ $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'Dutch');
+ is($ret, undef, "Empty string with locale '$date'");
+ 
+ $date = "";
+ $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date);
+ is($ret, undef, "Empty string, default '$date'");
+ 
+ $date = "no numbers (Locale)";
+ $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'Dutch');
+ is($ret, undef, "No date string '$date'");
+ 
+ $date = "no numbers (default)";
+ $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date);
+ is($ret, undef, "No date string '$date'");