cvs commit: modperl-2.0/t/response/TestAPI request_rec.pm

[stas]

stas        2004/07/23 14:04:50

  Modified:    t/response/TestAPI request_rec.pm
  Log:
  better assbackwards test and other tweaks
  
  Revision  Changes    Path
  1.22      +18 -12    modperl-2.0/t/response/TestAPI/request_rec.pm
  
  Index: request_rec.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/request_rec.pm,v
  retrieving revision 1.21
  retrieving revision 1.22
  diff -u -u -r1.21 -r1.22
  --- request_rec.pm    22 Jul 2004 21:41:46 -0000      1.21
  +++ request_rec.pm    23 Jul 2004 21:04:50 -0000      1.22
  @@ -50,7 +50,7 @@
   
       ok $r->the_request || 1;
   
  -    ok $r->assbackwards || 1;
  +    ok !$r->assbackwards;
   
       ok $r->proxyreq || 1;
   
  @@ -72,20 +72,16 @@
   
       ok t_cmp $r->method_number, Apache::M_GET, "method number";
   
  -    {
  -        $r->allowed(1 << Apache::M_GET);
  -
  -        ok $r->allowed & (1 << Apache::M_GET);
  -        ok ! ($r->allowed & (1 << Apache::M_PUT));
  -
  -        $r->allowed($r->allowed | (1 << Apache::M_PUT));
  -        ok $r->allowed & (1 << Apache::M_PUT);
  -    }
  -
       #allowed_xmethods
       #allow_methods
   
  -    ok $r->bytes_sent || 1;
  +    {
  +        $r->rflush;
  +        my $sent = $r->bytes_sent;
  +        t_debug "sent so far: $sent bytes";
  +        # at least 100 chars were sent already
  +        ok $sent > 100;
  +    }
   
       ok $r->mtime || 1;
   
  @@ -161,6 +157,16 @@
       #input_filers
   
       #eos_sent
  +
  +    {
  +        $r->allowed(1 << Apache::M_GET);
  +
  +        ok $r->allowed & (1 << Apache::M_GET);
  +        ok ! ($r->allowed & (1 << Apache::M_PUT));
  +
  +        $r->allowed($r->allowed | (1 << Apache::M_PUT));
  +        ok $r->allowed & (1 << Apache::M_PUT);
  +    }
   
       Apache::OK;
   }