Mailing-List: contact modperl-cvs-help@apache.org; run by ezmlm
Precedence: bulk
Reply-To: dev@perl.apache.org
Date: 29 Jan 2002 05:32:39 -0000
Message-ID: <20020129053239.79102.qmail@icarus.apache.org>
From: stas@apache.org
To: modperl-2.0-cvs@apache.org
Subject: cvs commit: modperl-2.0/t/response/TestAPR date.pm

stas        02/01/28 21:32:39

  Modified:    src/modules/perl modperl_apache_includes.h
               xs/maps  apr_functions.map
  Added:       t/response/TestAPR date.pm
  Log:
  - building APR::Date with apr_date_parse_* functions
  - hiding the internal apr_date_checkmask
  - adding tests for APR::Date
  
  Revision  Changes    Path
  1.9       +1 -0      modperl-2.0/src/modules/perl/modperl_apache_includes.h
  
  Index: modperl_apache_includes.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_apache_includes.h,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- modperl_apache_includes.h	21 Oct 2001 02:25:15 -0000	1.8
  +++ modperl_apache_includes.h	29 Jan 2002 05:32:39 -0000	1.9
  @@ -46,6 +46,7 @@
   #include "apr_lock.h"
   #include "apr_strings.h"
   #include "apr_uri.h"
  +#include "apr_date.h"
   #include "apr_buckets.h"
   #include "util_filter.h"
   
  
  
  
  1.29      +2 -2      modperl-2.0/xs/maps/apr_functions.map
  
  Index: apr_functions.map
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/maps/apr_functions.map,v
  retrieving revision 1.28
  retrieving revision 1.29
  diff -u -r1.28 -r1.29
  --- apr_functions.map	21 Jan 2002 05:41:54 -0000	1.28
  +++ apr_functions.map	29 Jan 2002 05:32:39 -0000	1.29
  @@ -24,8 +24,8 @@
    apr_explode_localtime
    apr_explode_time
   
  -!MODULE=APR::Date
  - apr_date_checkmask
  +MODULE=APR::Date
  +-apr_date_checkmask
    apr_date_parse_http
    apr_date_parse_rfc
   
  
  
  
  1.1                  modperl-2.0/t/response/TestAPR/date.pm
  
  Index: date.pm
  ===================================================================
  package TestAPR::date;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestUtil;
  use Apache::Const -compile => 'OK';
  
  use APR::Date ();
  
  my @http_dates = (
      'Sun, 06 Nov 1994 08:49:37 GMT',  # RFC 822, updated by RFC 1123
      'Sunday, 06-Nov-94 08:49:37 GMT', # RFC 850, obsoleted by RFC 1036
      'Sun Nov  6 08:49:37 1994',       # ANSI C's asctime() format
  );
  
  my @rfc_dates = (
      'Sun, 06 Nov 1994 08:49:37 GMT' , # RFC 822, updated by RFC 1123
      'Sunday, 06-Nov-94 08:49:37 GMT', # RFC 850, obsoleted by RFC 1036
      'Sun Nov  6 08:49:37 1994',       # ANSI C's asctime() format
      'Sun, 6 Nov 1994 08:49:37 GMT',   # RFC 822, updated by RFC 1123
      'Sun, 06 Nov 94 08:49:37 GMT',    # RFC 822
      'Sun, 6 Nov 94 08:49:37 GMT',     # RFC 822
      'Sun, 06 Nov 94 8:49:37 GMT',     # Unknown [Elm 70.85]
      'Sun, 6 Nov 94 8:49:37 GMT',      # Unknown [Elm 70.85]
      'Sun,  6 Nov 1994 08:49:37 GMT',  # Unknown [Postfix]
  );
  
  my @bogus_dates = (
      'Sun, 06 Nov 94 08:49 GMT',       # Unknown [drtr@ast.cam.ac.uk]
      'Sun, 6 Nov 94 08:49 GMT',        # Unknown [drtr@ast.cam.ac.uk]
  );
  
  my $date_msec = 784111777;
  my $bogus_date_msec = 784111740;
  
  sub handler {
      my $r = shift;
  
      plan $r, tests => @http_dates + @rfc_dates + @bogus_dates;
  
      # parse_http
      for my $date_str (@http_dates) {
          ok t_cmp($date_msec, 
                   APR::Date::parse_http($date_str),
                  "parse_http: $date_str");
          #t_debug "testing : parse_http: $date_str";
      }
  
      # parse_rfc
      for my $date_str (@rfc_dates) {
          ok t_cmp($date_msec, 
                   APR::Date::parse_rfc($date_str),
                   "parse_rfc: $date_str");
          #t_debug "testing : parse_rfc: $date_str";
      }
  
      # parse_rfc (bogus formats)
      for my $date_str (@bogus_dates) {
          ok t_cmp($bogus_date_msec,
                   APR::Date::parse_rfc($date_str),
                   "parse_rfc: $date_str");
          #t_debug "testing : parse_rfc: $date_str";
      }
  
      Apache::OK;
  }
  
  1;
  __END__