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

[dougm]

dougm       01/05/04 18:02:10

  Added:       t/response/TestAPI rutil.pm
  Log:
  add some tests for Apache::RequestUtil
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/response/TestAPI/rutil.pm
  
  Index: rutil.pm
  ===================================================================
  package TestAPI::rutil;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::RequestUtil ();
  use Apache::Test;
  
  my %default_ports = (
      http => 80,
      https => 443,
      ftp => 21,
      gopher => 70,
      wais => 210,
      nntp => 119,
      snews => 563,
      prospero => 1525,
  );
  
  my %status_lines = (
     200 => '200 OK',
     400 => '400 Bad Request',
     500 => '500 Internal Server Error',
  );
  
  sub handler {
      my $r = shift;
  
      plan $r, tests => 17;
  
      ok $r->default_type;
  
      ok $r->document_root;
  
      ok $r->get_server_name;
  
      ok $r->get_server_port;
  
      ok $r->get_limit_req_body || 1;
  
      while(my($scheme, $port) = each %default_ports) {
          ok Apache::default_port_for_scheme($scheme) == $port;
      }
  
      while (my($code, $line) = each %status_lines) {
          ok Apache::get_status_line($code) eq $line;
      }
  
      ok $r->is_initial_req;
  
      Apache::OK;
  }
  
  1;