You are viewing a plain text version of this content. The canonical link for it is here.

Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/05/05 03:17:39 UTC

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

dougm       01/05/04 18:17:39

  Added:       t/response/TestAPI response.pm
  Log:
  add tests for Apache::Response
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/response/TestAPI/response.pm
  
  Index: response.pm
  ===================================================================
  package TestAPI::response;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Response ();
  use Apache::Test;
  
  sub handler {
      my $r = shift;
  
      plan $r, tests => 6;
  
      ok $r->make_etag(0);
  
      $r->set_content_length(0);
  
      ok 1;
  
      ok $r->meets_conditions || 1;
  
      ok $r->rationalize_mtime(time) >= $r->request_time;
  
      my $mtime = (stat __FILE__)[9];
  
      $r->update_mtime($mtime);
  
      ok $r->mtime == $mtime;
  
      $r->set_last_modified;
  
      $r->custom_response(500, "xxx");
  
      ok 1;
  
      Apache::OK;
  }
  
  1;