dougm       2002/09/10 17:50:31

  Modified:    .        Changes
               t/apache scanhdrs.t
               t/filter/TestFilter api.pm buckets.pm
  Log:
  Submitted by: Philippe M. Chiasson <[EMAIL PROTECTED]>
  Reviewed by:  dougm
  tweaks to support Test.pm 1.21
  
  Revision  Changes    Path
  1.44      +2 -0      modperl-2.0/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Changes,v
  retrieving revision 1.43
  retrieving revision 1.44
  diff -u -r1.43 -r1.44
  --- Changes   5 Sep 2002 01:50:45 -0000       1.43
  +++ Changes   11 Sep 2002 00:50:31 -0000      1.44
  @@ -10,6 +10,8 @@
   
   =item 1.99_06-dev
   
  +tweaks to support Test.pm 1.21 [Philippe M. Chiasson <[EMAIL PROTECTED]>]
  +
   add $r->add_config method to add dynamic configuration at request time
   
   add Apache::DIR_MAGIC_TYPE constant
  
  
  
  1.3       +1 -1      modperl-2.0/t/apache/scanhdrs.t
  
  Index: scanhdrs.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/apache/scanhdrs.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- scanhdrs.t        20 Dec 2001 03:54:40 -0000      1.2
  +++ scanhdrs.t        11 Sep 2002 00:50:31 -0000      1.3
  @@ -11,7 +11,7 @@
   
   my $res = GET $location;
   
  -ok $res->content eq "1..1\nok 1\n";
  +ok $res->content =~ /^ok 1$/m;
   
   ok $res->header('Content-Type') eq 'text/test-output';
   
  
  
  
  1.7       +1 -0      modperl-2.0/t/filter/TestFilter/api.pm
  
  Index: api.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/api.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- api.pm    11 Apr 2002 11:08:43 -0000      1.6
  +++ api.pm    11 Sep 2002 00:50:31 -0000      1.7
  @@ -17,6 +17,7 @@
   #XXX: else pp_untie complains:
   #untie attempted while %d inner references still exist
   sub Apache::Filter::UNTIE {}
  +sub Apache::Filter::PRINTF {}
   
   sub handler {
       my $filter = shift;
  
  
  
  1.7       +3 -0      modperl-2.0/t/filter/TestFilter/buckets.pm
  
  Index: buckets.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/buckets.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- buckets.pm        11 Apr 2002 11:08:43 -0000      1.6
  +++ buckets.pm        11 Sep 2002 00:50:31 -0000      1.7
  @@ -13,6 +13,9 @@
   
   use Apache::Const -compile => 'OK';
   
  +#XXX: Not implemented yet, required by Test.pm
  +sub Apache::TestToString::PRINTF {}
  +
   sub handler {
       my($filter, $bb) = @_;
   
  
  
  


Reply via email to