first pass at unit tests

[maypole.git] / t / apache_mvc.t

diff --git a/t/apache_mvc.t b/t/apache_mvc.t
new file mode 100644 (file)
index 0000000..4bb7185
--- /dev/null
+++ b/t/apache_mvc.t
@@ -0,0 +1,33 @@
+#!/usr/bin/perl -w
+use strict;
+use Test::More tests => 10;
+use Test::MockObject;
+
+require_ok('Apache::MVC');
+ok($Apache::MVC::VERSION, 'defines $VERSION');
+# defines $VERSION
+# uses mod_perl
+# @ISA = 'Maypole'
+# sets APACHE2 constant
+# loads Apache::Request
+# loads mod_perl2 modules if APACHE2
+# otherwise, loads Apache
+# get_request()
+# ... sets 'ar' to new Apache::Request object
+# parse_location()
+# ... sets path() to request URI - base URI
+# ... calls parse_path
+# ... calls parse_args
+# parse_args()
+# ... calls _mod_perl_args(), to set params
+# ... calls _mod_perl_args(), to set query
+# send_output()
+# ... sets get_request->content_type to r->content_type
+# ... appends document_encoding() if content_type is text
+# ... sets Content-Length header
+# ... calls get_request->send_http_header unless APACHE2
+# ... prints the request output
+# get_template_root()
+# ... catdir(document_root, location)
+# _mod_perl_args()
+# ... returns a hash of args from get_request->param