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

[stas]

stas        2004/08/01 20:38:16

  Added:       t/api    status.t
               t/response/TestAPI status.pm
  Log:
  testing $r->status/status_line
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/api/status.t
  
  Index: status.t
  ===================================================================
  use strict;
  use warnings FATAL => 'all';
  
  # testing $r->status/status_line
  
  use Apache::Test;
  use Apache::TestUtil;
  use Apache::TestRequest;
  
  plan tests => 6;
  
  my $location = "/TestAPI__status";
  
  {
      # test a valid HTTP/1.1 status code (303). In this test
      # the handler returns OK, but sets a custom status. Apache will
      # lookup the message "See Other" on its own
      my $code = 303; # Apache::HTTP_SEE_OTHER
      my $message = "See Other";
      my $res = HEAD "$location?$code=";
      ok t_cmp $res->code, $code, "code";
      ok t_cmp $res->message, $message, "message";
      ok t_cmp $res->content, "", "content";
  }
  
  {
      # test a non-existing HTTP/1.1 status code (499). In this test
      # the handler returns OK, but sets a custom status_line.
      # it also tries to set status (to a different value), but it
      # should be ignored by Apache, since status_line is supposed to
      # override status. the handler also sets a custom code message
      my $code = 499; # not in HTTP/1.1
      my $message = "FooBared";
      my $res = HEAD "$location?$code=$message";
      ok t_cmp $res->code, $code, "code";
      ok t_cmp $res->message, $message, "message";
      ok t_cmp $res->content, "", "content";
  }
  
  
  
  
  1.1                  modperl-2.0/t/response/TestAPI/status.pm
  
  Index: status.pm
  ===================================================================
  package TestAPI::status;
  
  # see the client for details
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::RequestRec ();
  use Apache::RequestIO ();
  
  use Apache::Const -compile => 'OK';
  
  my $body = "This is a response string";
  
  sub handler {
      my $r = shift;
  
      $r->content_type('text/plain');
  
      my($code, $string) = split /=/, $r->args || '';
  
      if ($string) {
          $r->status(200); # status_line should override status
          $r->status_line("$code $string");
      }
      else {
          $r->status($code);
      }
  
      Apache::OK;
  }
  
  1;