[Http-webtest-commits] HTTP-WebTest-Plugin-DateTest/lib/HTTP/WebTest/Plugin DateTest.pm,1.2,1.3

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

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

Modified Files:
	DateTest.pm 
Log Message:
Compatibility with HTTP::WebTest 2.00


Index: DateTest.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/lib/HTTP/WebTest/Plugin/DateTest.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** DateTest.pm	9 Oct 2002 22:15:16 -0000	1.2
--- DateTest.pm	26 Dec 2002 21:15:30 -0000	1.3
***************
*** 45,49 ****
  in the returned page.
  The date string should look like anything that L<Date::Parse> is
! able to understand. 
  Leading/trailing whitespace is no problem
  
--- 45,49 ----
  in the returned page.
  The date string should look like anything that L<Date::Parse> is
! able to understand.
  Leading/trailing whitespace is no problem
  
***************
*** 53,57 ****
  in the returned page.
  The date string should look like anything that L<Date::Parse> is
! able to understand. 
  Leading/trailing whitespace is no problem
  
--- 53,57 ----
  in the returned page.
  The date string should look like anything that L<Date::Parse> is
! able to understand.
  Leading/trailing whitespace is no problem
  
***************
*** 74,78 ****
    w(eeks)
  
! The default is seconds. 
  Only the first character is relevant, any leading text is
  ignored. An unknown unit specifier defaults to seconds.
--- 74,78 ----
    w(eeks)
  
! The default is seconds.
  Only the first character is relevant, any leading text is
  ignored. An unknown unit specifier defaults to seconds.
***************
*** 80,84 ****
  =head2 date_locale
  
! Global parameter for all date tests. 
  
  Specify the language in which the date string is written.
--- 80,84 ----
  =head2 date_locale
  
! Global parameter for all date tests.
  
  Specify the language in which the date string is written.
***************
*** 132,136 ****
  
      # response content
!     my $content = $self->webtest->last_response->content;
  
      $self->validate_params(qw(date_start date_end date_maxage date_locale));
--- 132,136 ----
  
      # response content
!     my $content = $self->webtest->current_response->content;
  
      $self->validate_params(qw(date_start date_end date_maxage date_locale));
***************
*** 244,248 ****
    my @MoY = eval "\@Date::Language::${locale}::MoY";
    my $MoY_EN = \@Date::Language::English::MoY;
!   
    my $nwdate = '';
    foreach my $token (split(/(\s|-|:|\/)/, $date)) {
--- 244,248 ----
    my @MoY = eval "\@Date::Language::${locale}::MoY";
    my $MoY_EN = \@Date::Language::English::MoY;
! 
    my $nwdate = '';
    foreach my $token (split(/(\s|-|:|\/)/, $date)) {