[Http-webtest-commits] HTTP-WebTest-Plugin-DateTest/t 03_timeunits.t,1.3,1.4

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

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

Modified Files:
	03_timeunits.t 
Log Message:
fix for *argument isn't numeric* warning

Index: 03_timeunits.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/t/03_timeunits.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** 03_timeunits.t	26 Dec 2002 21:19:53 -0000	1.3
--- 03_timeunits.t	6 Mar 2003 17:42:24 -0000	1.4
***************
*** 1,3 ****
! use Test::More tests => 22;
  use lib qw(./blib/lib);
  use HTTP::WebTest::Plugin::DateTest;
--- 1,3 ----
! use Test::More tests => 24;
  use lib qw(./blib/lib);
  use HTTP::WebTest::Plugin::DateTest;
***************
*** 92,93 ****
--- 92,103 ----
  ($ret) = &HTTP::WebTest::Plugin::DateTest::_seconds2str($date, 's');
  is($ret, '653.74 s', "List context: $date seconds: '$ret'");
+ 
+ # invalid date value
+ $date = 'unknown';
+ ($ret) = &HTTP::WebTest::Plugin::DateTest::_seconds2str($date);
+ is($ret, 'unknown', "Invalid date: $date : '$ret'");
+ 
+ $date = 'unanticipated';
+ ($ret) = &HTTP::WebTest::Plugin::DateTest::_seconds2str($date);
+ is($ret, 'unknown', "Invalid date: $date : '$ret'");
+