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

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

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

Modified Files:
	03_timeunits.t 
Log Message:
Changed test result format and handling of time units

Index: 03_timeunits.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/t/03_timeunits.t,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** 03_timeunits.t	12 Sep 2002 13:11:01 -0000	1.1.1.1
--- 03_timeunits.t	9 Oct 2002 22:15:16 -0000	1.2
***************
*** 1,3 ****
! use Test::Simple tests => 16;
  use lib qw(./blib/lib);
  use HTTP::WebTest::Plugin::DateTest;
--- 1,3 ----
! use Test::Simple tests => 22;
  use lib qw(./blib/lib);
  use HTTP::WebTest::Plugin::DateTest;
***************
*** 6,66 ****
  $date = '1';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 1, "1 second: '$date'");
  
  $date = '1 minute';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 60, "60 seconds: '$date'");
  
  $date = '1    hr';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 3600, "3600 seconds: '$date'");
  
  $date = '1 day -- additional text ignored';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 86400, "86400 seconds: '$date'");
  
  $date = '    1 week -- leading space ignored';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 7*86400, "a week full of seconds: '$date'");
  
  $date = '1 SECOND';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 1, "Case insensitive: '$date'");
  
  $date = '1.5 hours';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 3600+1800, "Fractional value: '$date'");
  
  $date = "\t1\thr";
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 3600, "Tabs as whitespace: '$date'");
  
  $date = '1 dada -- nonsense units';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 86400, "Unit interpreted as 'd': '$date'");
  
  $date = '10 foobar -- utmost nonsense units';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 10, "Default unit is 'seconds': '$date'");
  
  $date = 'not numeric 10';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 0, "Zero: '$date'");
  
  $date = '.5 minutes';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 30, "Fraction only: '$date'");
  
  $date = '+10 secs';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 10, "Leading plus: '$date'");
  
  $date = '-10 secs';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == -10, "Leading minus: '$date'");
  
  $date = "\t+1.536 \t Hours (comment)\n1 more line";
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 3600*1.536, "Baroque format: '$date'");
  
  # reverse: date string rendering
--- 6,66 ----
  $date = '1';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 1, "1 second: '$date' - returned '$ret'");
  
  $date = '1 minute';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 60, "60 seconds: '$date' - returned '$ret'");
  
  $date = '1    hr';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 3600, "3600 seconds: '$date' - returned '$ret'");
  
  $date = '1 day -- additional text ignored';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 86400, "86400 seconds: '$date' - returned '$ret'");
  
  $date = '    1 week -- leading space ignored';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 7*86400, "a week full of seconds: '$date' - returned '$ret'");
  
  $date = '1 SECOND';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 1, "Case insensitive: '$date' - returned '$ret'");
  
  $date = '1.5 hours';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 3600+1800, "Fractional value: '$date' - returned '$ret'");
  
  $date = "\t1\thr";
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 3600, "Tabs as whitespace: '$date' - returned '$ret'");
  
  $date = '1 dada -- nonsense units';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 86400, "Unit interpreted as 'd': '$date' - returned '$ret'");
  
  $date = '10 foobar -- utmost nonsense units';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 10, "Default unit is 'seconds': '$date' - returned '$ret'");
  
  $date = 'not numeric 10';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 0, "Zero: '$date' - returned '$ret'");
  
  $date = '.5 minutes';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 30, "Fraction only: '$date' - returned '$ret'");
  
  $date = '+10 secs';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 10, "Leading plus: '$date' - returned '$ret'");
  
  $date = '-10 secs';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == -10, "Leading minus: '$date' - returned '$ret'");
  
  $date = "\t+1.536 \t Hours (comment)\n1 more line";
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2seconds($date);
! ok($ret == 3600*1.536, "Baroque format: '$date' - returned '$ret'");
  
  # reverse: date string rendering
***************
*** 69,70 ****
--- 69,93 ----
  ok($ret eq '1w 4d 10:20:53', "$date seconds: '$ret'");
  
+ $date = "987653"; # seconds
+ $ret = &HTTP::WebTest::Plugin::DateTest::_seconds2str($date, 'w');
+ ok($ret eq '1.63 w', "$date seconds: '$ret'");
+ 
+ $date = "987653"; # seconds
+ $ret = &HTTP::WebTest::Plugin::DateTest::_seconds2str($date, 'd');
+ ok($ret eq '11.43 d', "$date seconds: '$ret'");
+ 
+ $date = "7200"; # seconds
+ $ret = &HTTP::WebTest::Plugin::DateTest::_seconds2str($date, 'h');
+ ok($ret eq '2.00 h', "$date seconds: '$ret'");
+ 
+ $date = "200"; # seconds
+ $ret = &HTTP::WebTest::Plugin::DateTest::_seconds2str($date, 'm');
+ ok($ret eq '3.33 m', "$date seconds: '$ret'");
+ 
+ $date = "653.74"; # seconds
+ $ret = &HTTP::WebTest::Plugin::DateTest::_seconds2str($date, 's');
+ ok($ret eq '653.74 s', "$date seconds: '$ret'");
+ 
+ $date = "653.74"; # seconds
+ ($ret) = &HTTP::WebTest::Plugin::DateTest::_seconds2str($date, 's');
+ ok($ret eq '653.74 s', "List context: $date seconds: '$ret'");