cvs commit: modperl-2.0/t/apache compat.t

[stas]

stas        01/12/09 20:32:40

  Modified:    t/response/TestApache compat.pm
               t/apache compat.t
  Log:
  - add a few todo tests: $r->set_content_length(),
  $r->update_mtime(), $r->set_last_modified($time)
  
  Revision  Changes    Path
  1.6       +13 -0     modperl-2.0/t/response/TestApache/compat.pm
  
  Index: compat.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/compat.pm,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- compat.pm 2001/12/05 16:39:01     1.5
  +++ compat.pm 2001/12/10 04:32:40     1.6
  @@ -139,6 +139,9 @@
           ok $r->meets_conditions == Apache::OK;
   
           debug "\$r->set_content_length";
  +        # XXX: broken
  +        #$r->set_content_length();
  +        ok 0;
           $r->set_content_length(10);
           my $cl_header = $r->headers_out->{"Content-length"} || '';
           ok $cl_header == 10;
  @@ -149,10 +152,20 @@
           ok 1;
   
           debug "\$r->update_mtime/\$r->mtime";
  +        # XXX: broken
  +        # $r->update_mtime; # just check that it's valid
  +        ok 0;
           my $time = time;
           $r->update_mtime($time);
           ok $r->mtime == $time;
   
  +        debug "\$r->set_last_modified";
  +        # XXX: broken
  +        # $r->set_last_modified($time);
  +        ok 0;
  +        $time = time;
  +        $r->set_last_modified();
  +        ok $r->mtime == $time;
       }
   
       Apache::OK;
  
  
  
  1.7       +1 -1      modperl-2.0/t/apache/compat.t
  
  Index: compat.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/apache/compat.t,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- compat.t  2001/12/05 16:39:01     1.6
  +++ compat.t  2001/12/10 04:32:40     1.7
  @@ -6,7 +6,7 @@
   use Apache::TestUtil;
   use Apache::TestRequest;
   
  -plan tests => 26, \&have_lwp;
  +plan tests => 30, todo => [24, 27, 29], \&have_lwp;
   
   my $location = "/TestApache::compat";