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

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 sc8-pr-cvs1:/tmp/cvs-serv17547/t

Modified Files:
	03_timeunits.t 
Log Message:
Use Test::More instead of Test::Simple


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