t/apache_mvc.t

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use Test::More;
   4 BEGIN { if (eval { require mod_perl }) {
   5             plan tests => 2;
   6         } else { Test::More->import(skip_all =>"mod_perl is not installed: $@") }
   7       }
   8 require_ok('Apache::MVC');
   9 ok($Apache::MVC::VERSION, 'defines $VERSION');
  10 # defines $VERSION
  11 # uses mod_perl
  12 # @ISA = 'Maypole'
  13 # sets APACHE2 constant
  14 # loads Apache::Request
  15 # loads mod_perl2 modules if APACHE2
  16 # otherwise, loads Apache
  17 # get_request()
  18 # ... sets 'ar' to new Apache::Request object
  19 # parse_location()
  20 # ... sets path() to request URI - base URI
  21 # ... calls parse_path
  22 # ... calls parse_args
  23 # parse_args()
  24 # ... calls _mod_perl_args(), to set params
  25 # ... calls _mod_perl_args(), to set query
  26 # send_output()
  27 # ... sets get_request->content_type to r->content_type
  28 # ... appends document_encoding() if content_type is text
  29 # ... sets Content-Length header
  30 # ... calls get_request->send_http_header unless APACHE2
  31 # ... prints the request output
  32 # get_template_root()
  33 # ... catdir(document_root, location)
  34 # _mod_perl_args()
  35 # ... returns a hash of args from get_request->param