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

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

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

Modified Files:
	DateTest.pm 
Log Message:
Fix glitch for empty 'date' string, added test cases

Index: DateTest.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest-Plugin-DateTest/lib/HTTP/WebTest/Plugin/DateTest.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** DateTest.pm	26 Dec 2002 21:15:30 -0000	1.3
--- DateTest.pm	30 Dec 2002 17:22:19 -0000	1.4
***************
*** 7,11 ****
  
  use vars qw($VERSION);
! $VERSION = '0.91';
  
  =head1 NAME
--- 7,11 ----
  
  use vars qw($VERSION);
! $VERSION = '0.99';
  
  =head1 NAME
***************
*** 15,19 ****
  =head1 VERSION
  
!  Pre release version 0.90 - $Revision$
  
  =head1 SYNOPSIS
--- 15,20 ----
  =head1 VERSION
  
!  Version 0.99 - $Revision$
!  Pre release for WebTest 2.00
  
  =head1 SYNOPSIS
***************
*** 154,158 ****
  	if ($content =~ /\Q$start\E\s*(.+?)\s*\Q$end\E/) {
              $datestr = $1;
!             $pgdate = ($locale) ? _str2time_locale($datestr, $locale) : str2time($datestr);
          }
          my $age = ($pgdate) ? $now - $pgdate : 'unknown';
--- 155,159 ----
  	if ($content =~ /\Q$start\E\s*(.+?)\s*\Q$end\E/) {
              $datestr = $1;
!             $pgdate = _str2time_locale($datestr, $locale);
          }
          my $age = ($pgdate) ? $now - $pgdate : 'unknown';
***************
*** 226,229 ****
--- 227,232 ----
    my $date = shift;
    my $locale = ucfirst(lc(shift)) || 'English';
+   # return if date is, well, empty...
+   return if ($date =~ /^\s*$/sg);
    return str2time $date if ($locale eq 'English');
  
***************
*** 258,261 ****
--- 261,266 ----
      }
    }
+   # explicitly return for empty or '0' date string
+   return unless $nwdate;
    return str2time $nwdate;
  }