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

[Ilya M. <m_...@us...>]

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

Modified Files:
	02_dateparsing.t 
Log Message:
Do not depend on timezone settings


Index: 02_dateparsing.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/t/02_dateparsing.t,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** 02_dateparsing.t	12 Sep 2002 13:11:01 -0000	1.1.1.1
--- 02_dateparsing.t	26 Dec 2002 21:17:15 -0000	1.2
***************
*** 1,26 ****
! use Test::Simple tests => 11;
  use lib qw(./blib/lib);
  use HTTP::WebTest::Plugin::DateTest;
  
  # Tests for i10l date parsing
! my $date = 'ma 22 juli 2002, 14:05:44';
  my $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'dutch');
! ok($ret == 1027339544, "Dutch date '$date'");
  
  $date = ' dinsdag  22 okt 2002   14:05 ';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'dutch');
! ok($ret == 1035288300, "Dutch date string with extra spaces '$date'");
  
  $date = '22 oct 2002, 14:05:44';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'fReNcH');
! ok($ret == 1035288344, "'fReNcH' date '$date'");
  
  $date = 'Mar 19 Mars 2002, 17:25';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'fReNcH');
! ok($ret == 1016555100, "French ambiguity '$date'");
  
  $date = '19 Mär 2002 17:25';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'German');
! ok($ret == 1016555100, "German '$date'");
  
  $date = <<"EOD";
--- 1,34 ----
! use Test::More tests => 11;
! 
! # for testing purposes configure ourselves with specific timezone
! use POSIX;
! BEGIN {
!     $ENV{TZ} = 'EST';
!     POSIX::tzset();
! };
! 
  use lib qw(./blib/lib);
  use HTTP::WebTest::Plugin::DateTest;
  
  # Tests for i10l date parsing
! $date = 'ma 22 juli 2002, 14:05:44';
  my $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'dutch');
! is($ret, 1027364744, "Dutch date '$date'");
  
  $date = ' dinsdag  22 okt 2002   14:05 ';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'dutch');
! is($ret, 1035313500, "Dutch date string with extra spaces '$date'");
  
  $date = '22 oct 2002, 14:05:44';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'fReNcH');
! is($ret, 1035313544, "'fReNcH' date '$date'");
  
  $date = 'Mar 19 Mars 2002, 17:25';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'fReNcH');
! is($ret, 1016576700, "French ambiguity '$date'");
  
  $date = '19 Mär 2002 17:25';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'German');
! is($ret, 1016576700, "German '$date'");
  
  $date = <<"EOD";
***************
*** 29,46 ****
  EOD
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'German');
! ok($ret == 1016555100, "Same, multiple lines");
  
  # default date parsing
  $date = 'Mon Jul 22 14:05:44 CEST 2002';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'English');
! ok($ret == 1027339544, "English date as returned by date(1) '$date'");
  
  $date = 'Mon Jul 22 14:05:44 CEST 2002';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date);
! ok($ret == 1027339544, "Unspecified locale '$date'");
  
  $date = "\t  Mon Jul 22 14:05:44 CEST 2002  ";
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date);
! ok($ret == 1027339544, "Leading/trailing whitespace '$date'");
  
  $date = "Mon Jul 22 14:05:44 CEST 2002 with nonsense";
--- 37,54 ----
  EOD
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'German');
! is($ret, 1016576700, "Same, multiple lines");
  
  # default date parsing
  $date = 'Mon Jul 22 14:05:44 CEST 2002';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'English');
! is($ret, 1027339544, "English date as returned by date(1) '$date'");
  
  $date = 'Mon Jul 22 14:05:44 CEST 2002';
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date);
! is($ret, 1027339544, "Unspecified locale '$date'");
  
  $date = "\t  Mon Jul 22 14:05:44 CEST 2002  ";
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date);
! is($ret, 1027339544, "Leading/trailing whitespace '$date'");
  
  $date = "Mon Jul 22 14:05:44 CEST 2002 with nonsense";
***************
*** 50,53 ****
  $date = "   19 Mär 2002 17:25\t";
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'German');
! ok($ret == 1016555100, "German with leading/trailing space '$date'");
  
--- 58,61 ----
  $date = "   19 Mär 2002 17:25\t";
  $ret = &HTTP::WebTest::Plugin::DateTest::_str2time_locale($date, 'German');
! is($ret, 1016576700, "German with leading/trailing space '$date'");