From: Christian Hansen <chansen@cpan.org>
Date: Sun, 10 Apr 2005 19:04:44 +0000 (+0000)
Subject: new test suit
X-Git-Tag: 5.7099_04~1576
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=dd4e6fd2152eea9f5b0c1f559575ced7684ef257

new test suit
---

diff --git a/t/04plainaction.t b/t/04plainaction.t
deleted file mode 100644
index ed448db..0000000
--- a/t/04plainaction.t
+++ /dev/null
@@ -1,17 +0,0 @@
-package TestApp;
-
-use Catalyst qw[-Engine=Test];
-
-sub foo : Global {
-    my ( $self, $c ) = @_;
-    $c->res->output('bar');
-}
-
-__PACKAGE__->setup;
-
-package main;
-
-use Test::More tests => 1;
-use Catalyst::Test 'TestApp';
-
-ok( get('/foo') =~ /bar/ );
diff --git a/t/05regexaction.t b/t/05regexaction.t
deleted file mode 100644
index 212c193..0000000
--- a/t/05regexaction.t
+++ /dev/null
@@ -1,17 +0,0 @@
-package TestApp;
-
-use Catalyst qw[-Engine=Test];
-
-sub testregex : Regex(foo/(.*)) {
-        my ( $self, $c ) = @_;
-        $c->res->output( $c->req->snippets->[0] );
-}
-
-__PACKAGE__->setup();
-
-package main;
-
-use Test::More tests => 1;
-use Catalyst::Test 'TestApp';
-
-ok( get('/foo/bar') =~ /bar/ );
diff --git a/t/06parameters.t b/t/06parameters.t
deleted file mode 100644
index 6e3e4ef..0000000
--- a/t/06parameters.t
+++ /dev/null
@@ -1,17 +0,0 @@
-package TestApp;
-
-use Catalyst qw[-Engine=Test];
-
-sub foo : Global {
-    my ( $self, $c ) = @_;
-    $c->res->output( $c->req->params->{foo} );
-}
-
-__PACKAGE__->setup;
-
-package main;
-
-use Test::More tests => 1;
-use Catalyst::Test 'TestApp';
-
-ok( get('/foo?foo=bar') =~ /bar/ );
diff --git a/t/07arguments.t b/t/07arguments.t
deleted file mode 100644
index 51b5310..0000000
--- a/t/07arguments.t
+++ /dev/null
@@ -1,17 +0,0 @@
-package TestApp;
-
-use Catalyst qw[-Engine=Test];
-
-sub foo : Global {
-    my ( $self, $c, $arg ) = @_;
-    $c->res->output($arg);
-}
-
-__PACKAGE__->setup;
-
-package main;
-
-use Test::More tests => 1;
-use Catalyst::Test 'TestApp';
-
-ok( get('/foo/bar') =~ /bar/ );
diff --git a/t/08headers.t b/t/08headers.t
deleted file mode 100644
index 8063060..0000000
--- a/t/08headers.t
+++ /dev/null
@@ -1,17 +0,0 @@
-package TestApp;
-
-use Catalyst qw[-Engine=Test];
-
-sub foo : Global {
-  my ( $self, $c ) = @_;
-  $c->res->headers->header( 'X-Foo' => 'Bar' );
-}
-
-__PACKAGE__->setup;
-
-package main;
-
-use Test::More tests => 1;
-use Catalyst::Test 'TestApp';
-
-ok( request('/foo')->header('X-Foo') );
diff --git a/t/09cookies.t b/t/09cookies.t
deleted file mode 100644
index fa4171a..0000000
--- a/t/09cookies.t
+++ /dev/null
@@ -1,17 +0,0 @@
-package TestApp;
-
-use Catalyst qw[-Engine=Test];
-
-sub foo : Global {
-  my ( $self, $c ) = @_;
-  $c->res->cookies->{foo} = { value => 'bar' };
-}
-
-__PACKAGE__->setup;
-
-package main;
-
-use Test::More tests => 1;
-use Catalyst::Test 'TestApp';
-
-ok( request('/foo')->header('Set-Cookie') =~ /bar/ );
diff --git a/t/10forward.t b/t/10forward.t
deleted file mode 100644
index 3920e03..0000000
--- a/t/10forward.t
+++ /dev/null
@@ -1,21 +0,0 @@
-package TestApp;
-
-use Catalyst qw[-Engine=Test];
-
-sub foo : Global {
-    my ( $self, $c ) = @_;
-    $c->forward('bar');
-}
-sub bar : Global {
-    my ( $self, $c, $arg ) = @_;
-    $c->res->output($arg);
-}
-
-__PACKAGE__->setup;
-
-package main;
-
-use Test::More tests => 1;
-use Catalyst::Test 'TestApp';
-
-ok( get('/foo/bar') =~ /bar/ );
diff --git a/t/11redirect.t b/t/11redirect.t
deleted file mode 100644
index 8ac6237..0000000
--- a/t/11redirect.t
+++ /dev/null
@@ -1,17 +0,0 @@
-package TestApp;
-
-use Catalyst qw[-Engine=Test];
-
-sub foo : Global {
-    my ( $self, $c ) = @_;
-    $c->res->redirect('http://localhost/bar');
-}
-
-__PACKAGE__->setup;
-
-package main;
-
-use Test::More tests => 1;
-use Catalyst::Test 'TestApp';
-
-ok( request('/foo')->header('Location') =~ /localhost/ );
diff --git a/t/12stash.t b/t/12stash.t
deleted file mode 100644
index 033c720..0000000
--- a/t/12stash.t
+++ /dev/null
@@ -1,29 +0,0 @@
-package TestApp;
-
-use Catalyst qw[-Engine=Test];
-
-sub foo : Global {
-    my ( $self, $c ) = @_;
-    $c->stash->{test} ||= 'foo';
-    $c->forward('bar');
-}
-sub bar : Global {
-        my ( $self, $c ) = @_;
-        $c->stash->{test} ||= 'bar';
-        $c->forward('yada');
-}
-sub yada : Global {
-        my ( $self, $c ) = @_;
-        $c->stash->{test} ||= 'yada';
-        $c->res->output( $c->stash->{test} );
-}
-
-__PACKAGE__->setup;
-
-package main;
-
-use Test::More tests => 2;
-use Catalyst::Test 'TestApp';
-
-ok( get('/foo') =~ /foo/ );
-ok( get('/bar') =~ /bar/ );
diff --git a/t/13default.t b/t/13default.t
deleted file mode 100644
index 4c5c55c..0000000
--- a/t/13default.t
+++ /dev/null
@@ -1,27 +0,0 @@
-package TestApp;
-
-use Catalyst qw[-Engine=Test];
-
-sub default : Private {
-    my ( $self, $c ) = @_;
-    $c->res->output('bar');
-}
-
-__PACKAGE__->setup;
-
-package TestApp::C::Foo::Bar;
-
-use base 'Catalyst::Base';
-
-sub default : Private {
-    my ( $self, $c ) = @_;
-    $c->res->output('yada');
-}
-
-package main;
-
-use Test::More tests => 2;
-use Catalyst::Test 'TestApp';
-
-ok( get('/foo')         =~ /bar/ );
-ok( get('/foo/bar/foo') =~ /yada/ );
diff --git a/t/14beginend.t b/t/14beginend.t
deleted file mode 100644
index 3e194de..0000000
--- a/t/14beginend.t
+++ /dev/null
@@ -1,43 +0,0 @@
-package TestApp;
-
-use Catalyst qw[-Engine=Test];
-
-
-sub begin : Private { 
-    my ( $self, $c ) = @_;
-    $c->res->output('foo');
-}
-
-sub default : Private { }
-
-sub end : Private { 
-    my ( $self, $c ) = @_;
-    $c->res->output( $c->res->output . 'bar' );
-}
-
-
-__PACKAGE__->setup;
-
-package TestApp::C::Foo::Bar;
-
-use base 'Catalyst::Base';
-
-sub begin : Private { 
-    my ( $self, $c ) = @_;
-    $c->res->output('yada');
-}
-
-sub default : Private { }
-
-sub end : Private { 
-    my ( $self, $c ) = @_;
-    $c->res->output( $c->res->output . 'yada' );
-}
-
-package main;
-
-use Test::More tests => 2;
-use Catalyst::Test 'TestApp';
-
-ok( get('/foo')         =~ /foobar/ );
-ok( get('/foo/bar/foo') =~ /yadayada/ );
diff --git a/t/15connection.t b/t/15connection.t
deleted file mode 100644
index a5117fd..0000000
--- a/t/15connection.t
+++ /dev/null
@@ -1,22 +0,0 @@
-package TestApp;
-
-use Catalyst qw[-Engine=Test];
-
-sub hostname : Global {
-    my ( $self, $c ) = @_;
-    $c->res->output( $c->req->hostname );
-}
-sub address : Global {
-    my ( $self, $c ) = @_;
-    $c->res->output( $c->req->address );
-}
-
-__PACKAGE__->setup;
-
-package main;
-
-use Test::More tests => 2;
-use Catalyst::Test 'TestApp';
-
-ok( get('/hostname') eq 'localhost' );
-ok( get('/address')  eq '127.0.0.1' );
diff --git a/t/16post.t b/t/16post.t
deleted file mode 100644
index 5ff4fa9..0000000
--- a/t/16post.t
+++ /dev/null
@@ -1,41 +0,0 @@
-package TestApp;
-
-use Catalyst qw[-Engine=Test];
-
-sub echo : Global {
-    my ( $self, $c ) = @_;
-
-    for my $field ( $c->req->headers->header_field_names ) {
-        my $header = ( $field =~ /^X-/ ) ? $field : "X-$field";
-        $c->res->headers->header(
-            $header => $c->req->headers->header($field) );
-    }
-
-    $c->res->headers->content_type('text/plain');
-    $c->res->output('ok');
-}
-
-__PACKAGE__->setup;
-
-package main;
-
-use Test::More tests => 5;
-use Catalyst::Test 'TestApp';
-use HTTP::Request::Common;
-
-my $request = POST(
-    'http://localhost/echo',
-    'X-Whats-Cool' => 'Catalyst',
-    'Content-Type' => 'form-data',
-    'Content'      => [
-        catalyst => 'Rocks!',
-        file     => [$0],
-    ]
-);
-
-ok( my $response = request($request) );
-ok( $response->content_type eq 'text/plain' );
-ok( $response->headers->header('X-Content-Type') =~ /^multipart\/form-data/ );
-ok( $response->headers->header('X-Content-Length') ==
-      $request->content_length );
-ok( $response->headers->header('X-Whats-Cool') eq 'Catalyst' );
diff --git a/t/17uri.t b/t/17uri.t
deleted file mode 100644
index 21e2df0..0000000
--- a/t/17uri.t
+++ /dev/null
@@ -1,40 +0,0 @@
-package TestApp;
-
-use Catalyst qw[-Engine=Test];
-
-TestApp->action( '!default'  => \&default );
-TestApp->action( 'index/a/b' => \&default );
-
-sub default {
-    my ( $self, $c ) = @_;
-    $c->res->headers->header( 'X-Arguments' => $c->req->arguments );
-    $c->res->headers->header( 'X-Base' => $c->req->base );
-    $c->res->headers->header( 'X-Path' => $c->req->path );
-    $c->res->headers->content_type('text/plain');
-    $c->res->output('ok');
-}
-
-package main;
-
-use Test::More tests => 6;
-use Catalyst::Test 'TestApp';
-
-{
-    local %ENV;
-
-    my $response = request('/index?a=a&b=b');
-
-    ok( $response->headers->header('X-Base') eq 'http://localhost/' );
-    ok( $response->headers->header('X-Arguments') eq 'index' );
-    ok( $response->headers->header('X-Path') eq 'index' );
-}
-
-{
-    local %ENV;
-
-    my $response = request('http://localhost:8080/index/a/b/c');
-
-    ok( $response->headers->header('X-Base') eq 'http://localhost:8080/' );
-    ok( $response->headers->header('X-Arguments') eq 'c' );
-    ok( $response->headers->header('X-Path') eq 'index/a/b/c' );
-}
diff --git a/t/18inheritance.t b/t/18inheritance.t
deleted file mode 100644
index 7ca67e6..0000000
--- a/t/18inheritance.t
+++ /dev/null
@@ -1,81 +0,0 @@
-package TestApp;
-
-use Catalyst qw[-Engine=Test];
-
-__PACKAGE__->action(
-
-    '!begin' => sub {
-        my ( $self, $c ) = @_;
-        $c->res->headers->content_type('text/plain');
-    }
-);
-
-package TestApp::C::Foo;
-
-TestApp->action(
-
-    '!begin' => sub {
-        my ( $self, $c ) = @_;
-        $c->res->output('foo');
-    },
-
-    '!default' => sub {
-        my ( $self, $c ) = @_;
-        $c->res->output( $c->res->output . 'foo' );
-    },
-
-    '!end' => sub {
-        my ( $self, $c ) = @_;
-        $c->res->output( $c->res->output . 'foo' );
-    },
-);
-
-package TestApp::C::Foo::Bar;
-
-TestApp->action(
-
-    '!begin' => sub {
-        my ( $self, $c ) = @_;
-        $c->res->output( $c->res->output . 'bar' );
-    },
-
-    '!default' => sub {
-        my ( $self, $c ) = @_;
-        $c->res->output( $c->res->output . 'bar' );
-    },
-
-    '!end' => sub {
-        my ( $self, $c ) = @_;
-        $c->res->output( $c->res->output . 'bar' );
-    },
-);
-
-package main;
-
-use Test::More tests => 5;
-use Catalyst::Test 'TestApp';
-
-{
-    my $response = request('/foo');
-    is( $response->content, 'foofoofoo' );
-}
-
-{
-    my $response = request('/foo/rab');
-    is( $response->content, 'foofoofoo' );
-}
-
-{
-    my $response = request('/foo/bar');
-    is( $response->content, 'foobarfoobarfoobar' );
-}
-
-{
-    my $response = request('/foobar');
-    isnt( $response->content, 'foofoofoo' );
-}
-
-{
-    my $response = request('/foo_bar/yada');
-    isnt( $response->content, 'foobarfoobarfoobar' );
-}
diff --git a/t/controller/action/absolute.t b/t/controller/action/absolute.t
new file mode 100644
index 0000000..c855ba9
--- /dev/null
+++ b/t/controller/action/absolute.t
@@ -0,0 +1,38 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+
+{
+    ok( my $response = request('http://localhost/action_absolute_one'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'action_absolute_one', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Absoulte', 'Test Class' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
+
+{
+    ok( my $response = request('http://localhost/action_absolute_two'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'action_absolute_two', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Absoulte', 'Test Class' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
+
+{
+    ok( my $response = request('http://localhost/action_absolute_three'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'action_absolute_three', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Absoulte', 'Test Class' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
diff --git a/t/controller/action/begin.t b/t/controller/action/begin.t
new file mode 100644
index 0000000..d18dc27
--- /dev/null
+++ b/t/controller/action/begin.t
@@ -0,0 +1,30 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+
+{
+    my @expected = qw[
+        TestApp::Controller::Action->begin
+        TestApp::Controller::Action::Begin->begin
+        TestApp::Controller::Action::Begin->default
+        TestApp::View::Dump::Request->process
+    ];
+
+    my $expected = join( ", ", @expected );
+
+    ok( my $response = request('http://localhost/action/begin'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'default', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Begin', 'Test Class' );
+    is( $response->header('X-Catalyst-Executed'), $expected, 'Executed actions' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
diff --git a/t/controller/action/default.t b/t/controller/action/default.t
new file mode 100644
index 0000000..5d7cbd0
--- /dev/null
+++ b/t/controller/action/default.t
@@ -0,0 +1,30 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+
+{
+    my @expected = qw[
+        TestApp::Controller::Action->begin
+        TestApp::Controller::Action::Default->begin
+        TestApp::Controller::Action::Default->default
+        TestApp::View::Dump::Request->process
+    ];
+
+    my $expected = join( ", ", @expected );
+
+    ok( my $response = request('http://localhost/action/default'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'default', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Default', 'Test Class' );
+    is( $response->header('X-Catalyst-Executed'), $expected, 'Executed actions' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
diff --git a/t/controller/action/end.t b/t/controller/action/end.t
new file mode 100644
index 0000000..f17a849
--- /dev/null
+++ b/t/controller/action/end.t
@@ -0,0 +1,31 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+
+{
+    my @expected = qw[
+        TestApp::Controller::Action->begin
+        TestApp::Controller::Action::End->begin
+        TestApp::Controller::Action::End->default
+        TestApp::View::Dump::Request->process
+        TestApp::Controller::Action::End->end
+    ];
+
+    my $expected = join( ", ", @expected );
+
+    ok( my $response = request('http://localhost/action/end'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'default', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::End', 'Test Class' );
+    is( $response->header('X-Catalyst-Executed'), $expected, 'Executed actions' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
diff --git a/t/controller/action/forward.t b/t/controller/action/forward.t
new file mode 100644
index 0000000..d4a163e
--- /dev/null
+++ b/t/controller/action/forward.t
@@ -0,0 +1,62 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+
+{
+    my @expected = qw[
+        TestApp::Controller::Action->begin
+        TestApp::Controller::Action::Forward->begin
+        TestApp::Controller::Action::Forward->one
+        TestApp::Controller::Action::Forward->two
+        TestApp::Controller::Action::Forward->three
+        TestApp::Controller::Action::Forward->four
+        TestApp::Controller::Action::Forward->five
+        TestApp::View::Dump::Request->process
+    ];
+
+    my $expected = join( ", ", @expected );
+
+    ok( my $response = request('http://localhost/action/forward/one'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'action/forward/one', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Forward', 'Test Class' );
+    is( $response->header('X-Catalyst-Executed'), $expected, 'Executed actions' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
+
+{
+    my @expected = qw[
+        TestApp::Controller::Action->begin
+        TestApp::Controller::Action::Forward->begin
+        TestApp::Controller::Action::Forward->jojo
+        TestApp::Controller::Action::Forward->one
+        TestApp::Controller::Action::Forward->two
+        TestApp::Controller::Action::Forward->three
+        TestApp::Controller::Action::Forward->four
+        TestApp::Controller::Action::Forward->five
+        TestApp::View::Dump::Request->process
+        TestApp::Controller::Action::Forward->three
+        TestApp::Controller::Action::Forward->four
+        TestApp::Controller::Action::Forward->five
+        TestApp::View::Dump::Request->process
+    ];
+
+    my $expected = join( ", ", @expected );
+
+    ok( my $response = request('http://localhost/action/forward/jojo'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'action/forward/jojo', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Forward', 'Test Class' );
+    is( $response->header('X-Catalyst-Executed'), $expected, 'Executed actions' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
diff --git a/t/controller/action/inheritance.t b/t/controller/action/inheritance.t
new file mode 100644
index 0000000..651539e
--- /dev/null
+++ b/t/controller/action/inheritance.t
@@ -0,0 +1,77 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+
+{
+    my @expected = qw[
+        TestApp::Controller::Action->begin
+        TestApp::Controller::Action::Inheritance->begin
+        TestApp::Controller::Action::Inheritance->default
+        TestApp::View::Dump::Request->process
+        TestApp::Controller::Action::Inheritance->end
+    ];
+
+    my $expected = join( ", ", @expected );
+
+    ok( my $response = request('http://localhost/action/inheritance'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'default', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Inheritance', 'Test Class' );
+    is( $response->header('X-Catalyst-Executed'), $expected, 'Executed actions' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
+
+{
+    my @expected = qw[
+        TestApp::Controller::Action->begin
+        TestApp::Controller::Action::Inheritance->begin
+        TestApp::Controller::Action::Inheritance::A->begin
+        TestApp::Controller::Action::Inheritance::A->default
+        TestApp::View::Dump::Request->process
+        TestApp::Controller::Action::Inheritance::A->end
+        TestApp::Controller::Action::Inheritance->end
+    ];
+
+    my $expected = join( ", ", @expected );
+
+    ok( my $response = request('http://localhost/action/inheritance/a'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'default', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Inheritance::A', 'Test Class' );
+    is( $response->header('X-Catalyst-Executed'), $expected, 'Executed actions' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
+
+{
+    my @expected = qw[
+        TestApp::Controller::Action->begin
+        TestApp::Controller::Action::Inheritance->begin
+        TestApp::Controller::Action::Inheritance::A->begin
+        TestApp::Controller::Action::Inheritance::A::B->begin
+        TestApp::Controller::Action::Inheritance::A::B->default
+        TestApp::View::Dump::Request->process
+        TestApp::Controller::Action::Inheritance::A::B->end
+        TestApp::Controller::Action::Inheritance::A->end
+        TestApp::Controller::Action::Inheritance->end
+    ];
+
+    my $expected = join( ", ", @expected );
+
+    ok( my $response = request('http://localhost/action/inheritance/a/b'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'default', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Inheritance::A::B', 'Test Class' );
+    is( $response->header('X-Catalyst-Executed'), $expected, 'Executed actions' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
diff --git a/t/controller/action/path.t b/t/controller/action/path.t
new file mode 100644
index 0000000..695cd31
--- /dev/null
+++ b/t/controller/action/path.t
@@ -0,0 +1,29 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+
+{
+    ok( my $response = request('http://localhost/action/path/a path with spaces'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'action/path/a path with spaces', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Path', 'Test Class' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
+
+{
+    ok( my $response = request('http://localhost/action/path/åäö'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'action/path/åäö', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Path', 'Test Class' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
diff --git a/t/controller/action/private.t b/t/controller/action/private.t
new file mode 100644
index 0000000..19e1e45
--- /dev/null
+++ b/t/controller/action/private.t
@@ -0,0 +1,51 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+
+{
+    ok( my $response = request('http://localhost/action/private/one'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Private', 'Test Class' );
+    is( $response->content, 'access denied', 'Access' );
+}
+
+{
+    ok( my $response = request('http://localhost/action/private/two'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Private', 'Test Class' );
+    is( $response->content, 'access denied', 'Access' );
+}
+
+{
+    ok( my $response = request('http://localhost/three'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Private', 'Test Class' );
+    is( $response->content, 'access denied', 'Access' );
+}
+
+{
+    ok( my $response = request('http://localhost/action/private/four'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Private', 'Test Class' );
+    is( $response->content, 'access denied', 'Access' );
+}
+
+{
+    ok( my $response = request('http://localhost/action/private/five'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Private', 'Test Class' );
+    is( $response->content, 'access denied', 'Access' );
+}
diff --git a/t/controller/action/regexp.t b/t/controller/action/regexp.t
new file mode 100644
index 0000000..de9bfaf
--- /dev/null
+++ b/t/controller/action/regexp.t
@@ -0,0 +1,29 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+
+{
+    ok( my $response = request('http://localhost/action/regexp/10/hello'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), '^action/regexp/(\d+)/(\w+)$', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Regexp', 'Test Class' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
+
+{
+    ok( my $response = request('http://localhost/action/regexp/hello/10'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), '^action/regexp/(\w+)/(\d+)$', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Regexp', 'Test Class' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
diff --git a/t/controller/action/relative.t b/t/controller/action/relative.t
new file mode 100644
index 0000000..a733b5f
--- /dev/null
+++ b/t/controller/action/relative.t
@@ -0,0 +1,47 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+
+{
+    ok( my $response = request('http://localhost/action/relative/one'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'action/relative/one', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Relative', 'Test Class' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
+
+{
+    ok( my $response = request('http://localhost/action/relative/two'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'action/relative/two', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Relative', 'Test Class' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
+
+{
+    ok( my $response = request('http://localhost/action/relative/three'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'action/relative/three', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Relative', 'Test Class' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
+
+{
+    ok( my $response = request('http://localhost/action/relative/four/five/six'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'action/relative/four/five/six', 'Test Action' );
+    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Relative', 'Test Class' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+}
diff --git a/t/engine/request/cookies.t b/t/engine/request/cookies.t
new file mode 100644
index 0000000..062839f
--- /dev/null
+++ b/t/engine/request/cookies.t
@@ -0,0 +1,45 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+use Catalyst::Request;
+use CGI::Cookie;
+use HTTP::Headers;
+use HTTP::Request::Common;
+use URI;
+
+{
+    my $creq;
+
+    my $request = GET( 'http://localhost/dump/request', 
+        'Cookie' => 'Catalyst=Cool; Cool=Catalyst',
+    );
+   
+    ok( my $response = request($request), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+    ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' );
+    isa_ok( $creq, 'Catalyst::Request' );
+    isa_ok( $creq->cookies->{Catalyst}, 'CGI::Cookie', 'Cookie Catalyst' );
+    is( $creq->cookies->{Catalyst}->name, 'Catalyst', 'Cookie Catalyst name' );
+    is( $creq->cookies->{Catalyst}->value, 'Cool', 'Cookie Catalyst value' );
+    isa_ok( $creq->cookies->{Cool}, 'CGI::Cookie', 'Cookie Cool' );
+    is( $creq->cookies->{Cool}->name, 'Cool', 'Cookie Cool name' );
+    is( $creq->cookies->{Cool}->value, 'Catalyst', 'Cookie Cool value' );
+
+
+    my $cookies = { 
+        Catalyst => $creq->cookies->{Catalyst},
+        Cool     => $creq->cookies->{Cool}
+    };
+
+    is_deeply( $creq->cookies, $cookies, 'Cookies' );
+}
diff --git a/t/engine/request/headers.t b/t/engine/request/headers.t
new file mode 100644
index 0000000..30eea9e
--- /dev/null
+++ b/t/engine/request/headers.t
@@ -0,0 +1,37 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+use Catalyst::Request;
+use HTTP::Headers;
+use HTTP::Request::Common;
+use URI;
+
+{
+    my $creq;
+
+    my $request = GET( 'http://localhost/dump/request', 
+        'User-Agent'   => 'MyAgen/1.0',
+        'X-Whats-Cool' => 'Catalyst'
+    );
+ 
+    ok( my $response = request($request), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+    ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' );
+    isa_ok( $creq, 'Catalyst::Request' );
+    isa_ok( $creq->headers, 'HTTP::Headers', 'Catalyst::Request->headers' );
+    is( $creq->header('X-Whats-Cool'), $request->header('X-Whats-Cool'), 'Catalyst::Request->header X-Whats-Cool' );
+    is( $creq->header('User-Agent'), $request->header('User-Agent'), 'Catalyst::Request->header User-Agent' );
+
+    my $host = sprintf( '%s:%d', $request->uri->host, $request->uri->port );
+    is( $creq->header('Host'), $host, 'Catalyst::Request->header Host' );
+}
diff --git a/t/engine/request/parameters.t b/t/engine/request/parameters.t
new file mode 100644
index 0000000..66ceddd
--- /dev/null
+++ b/t/engine/request/parameters.t
@@ -0,0 +1,50 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+use Catalyst::Request;
+use HTTP::Headers;
+use HTTP::Request::Common;
+use URI;
+
+{
+    my $creq;
+
+    my $parameters = { 
+        'a' => [qw(A b C d E f G)],
+        '%' => [ '%', '"', '& - &' ],
+    };
+
+    my $request = POST( 'http://localhost/dump/request/a/b?a=1&a=2&a=3', 
+        'Content'      => $parameters,
+        'Content-Type' => 'application/x-www-form-urlencoded'
+    );
+
+    # Query string. I'm not sure the order is consistent in all enviroments,
+    # we need to test this with:
+    # [x] C::E::Test and C::E::Daemon
+    # [ ] MP1
+    # [ ] MP2
+    # [x] CGI::Simple
+
+    unshift( @{ $parameters->{a} }, 1, 2, 3 );
+    
+    ok( my $response = request($request), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+    ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' );
+    isa_ok( $creq, 'Catalyst::Request' );
+    is( $creq->method, 'POST', 'Catalyst::Request method' );
+    is_deeply( $creq->parameters, $parameters, 'Catalyst::Request parameters' );
+    is_deeply( $creq->arguments, [qw(a b)], 'Catalyst::Request arguments' );
+    is_deeply( $creq->uploads, {}, 'Catalyst::Request uploads' );
+    is_deeply( $creq->cookies, {}, 'Catalyst::Request cookie' );
+}
diff --git a/t/engine/request/uploads.t b/t/engine/request/uploads.t
new file mode 100644
index 0000000..842ead5
--- /dev/null
+++ b/t/engine/request/uploads.t
@@ -0,0 +1,57 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+use Catalyst::Request;
+use HTTP::Headers;
+use HTTP::Headers::Util 'split_header_words';
+use HTTP::Request::Common;
+
+{
+    my $creq;
+
+    my $request = POST( 'http://localhost/dump/request/',
+        'Content-Type' => 'multipart/form-data',
+        'Content'      => [
+            'cookies.t' => [ "$FindBin::Bin/cookies.t" ],
+            'headers.t' => [ "$FindBin::Bin/headers.t" ],
+            'uploads.t' => [ "$FindBin::Bin/uploads.t" ],
+         ]
+    );
+
+    ok( my $response = request($request), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+
+    {
+        no strict 'refs';
+        ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' );
+    }
+
+    isa_ok( $creq, 'Catalyst::Request' );
+    is( $creq->method, 'POST', 'Catalyst::Request method' );
+    is( $creq->content_type, 'multipart/form-data', 'Catalyst::Request Content-Type' );
+    is( $creq->content_length, $request->content_length, 'Catalyst::Request Content-Length' );
+
+    for my $part ( $request->parts ) {
+
+        my $disposition = $part->header('Content-Disposition');
+        my %parameters  = @{ ( split_header_words($disposition) )[0] };
+
+        my $upload = $creq->uploads->{ $parameters{filename} };
+
+        isnt( $upload, undef, 'Upload filename' );
+        is( $upload->{type}, $part->content_type, 'Upload Content-Type' );
+        is( $upload->{size}, length( $part->content ), 'Upload Content-Length' );
+    }
+
+    #warn $response->as_string;
+}
diff --git a/t/engine/response/cookies.t b/t/engine/response/cookies.t
new file mode 100644
index 0000000..02b40b0
--- /dev/null
+++ b/t/engine/response/cookies.t
@@ -0,0 +1,48 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+use HTTP::Headers::Util 'split_header_words';
+
+
+my $expected = { 
+    Catalyst => [ qw( Catalyst Cool path / ) ],
+    Cool     => [ qw( Cool Catalyst path / ) ]
+};
+
+{
+    ok( my $response = request('http://localhost/engine/response/cookies/one'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'engine/response/cookies/one', 'Test Action' );
+
+    my $cookies = {};
+
+    for my $cookie ( split_header_words( $response->header('Set-Cookie') ) ) {
+        $cookies->{ $cookie->[0] } = $cookie;
+    }
+
+    is_deeply( $cookies, $expected, 'Response Cookies' );
+}
+
+{
+    ok( my $response = request('http://localhost/engine/response/cookies/two'), 'Request' );
+    ok( $response->is_redirect, 'Response Redirection 3xx' );
+    is( $response->code, 302, 'Response Code' );
+    is( $response->header('X-Catalyst-Action'), 'engine/response/cookies/two', 'Test Action' );
+
+    my $cookies = {};
+
+    for my $cookie ( split_header_words( $response->header('Set-Cookie') ) ) {
+        $cookies->{ $cookie->[0] } = $cookie;
+    }
+
+    is_deeply( $cookies, $expected, 'Response Cookies' );
+}
diff --git a/t/engine/response/errors.t b/t/engine/response/errors.t
new file mode 100644
index 0000000..411af4f
--- /dev/null
+++ b/t/engine/response/errors.t
@@ -0,0 +1,37 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+{
+    ok( my $response = request('http://localhost/engine/response/errors/one'), 'Request' );
+    ok( $response->is_error, 'Response Server Error 5xx' );
+    is( $response->code, 500, 'Response Code' );
+    is( $response->content_type, 'text/html', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'engine/response/errors/one', 'Test Action' );
+    like( $response->header('X-Catalyst-Error'), qr/^Caught exception/, 'Catalyst Error' );
+}
+
+{
+    ok( my $response = request('http://localhost/engine/response/errors/two'), 'Request' );
+    ok( $response->is_error, 'Client Error 4xx' );
+    is( $response->code, 404, 'Response Code' );
+    is( $response->content_type, 'text/html', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'engine/response/errors/two', 'Test Action' );
+    like( $response->header('X-Catalyst-Error'), qr/^Unknown resource/, 'Catalyst Error' );
+}
+
+{
+    ok( my $response = request('http://localhost/engine/response/errors/three'), 'Request' );
+    ok( $response->is_error, 'Response Server Error 5xx' );
+    is( $response->code, 500, 'Response Code' );
+    is( $response->content_type, 'text/html', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'engine/response/errors/three', 'Test Action' );
+    like( $response->header('X-Catalyst-Error'), qr/^Caught exception "I'm going to die!"$/, 'Catalyst Error' );
+}
diff --git a/t/engine/response/headers.t b/t/engine/response/headers.t
new file mode 100644
index 0000000..acbe778
--- /dev/null
+++ b/t/engine/response/headers.t
@@ -0,0 +1,24 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+
+{
+    my $expected = join( ', ', 1 .. 10 );
+
+    ok( my $response = request('http://localhost/engine/response/headers/one'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->code, 200, 'Response Code' );
+    is( $response->header('X-Catalyst-Action'), 'engine/response/headers/one', 'Test Action' );
+#   is( $response->header('X-Test-Class'), 'TestApp::Controller::Engine::Response::Headers', 'Test Class' );
+    is( $response->header('X-Header-Catalyst'), 'Cool', 'Response Header X-Header-Catalyst' );
+    is( $response->header('X-Header-Cool'), 'Catalyst', 'Response Header X-Header-Cool' );
+    is( $response->header('X-Header-Numbers'), $expected, 'Response Header X-Header-Numbers' );
+}
diff --git a/t/engine/response/redirect.t b/t/engine/response/redirect.t
new file mode 100644
index 0000000..e43d105
--- /dev/null
+++ b/t/engine/response/redirect.t
@@ -0,0 +1,42 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+{
+    ok( my $response = request('http://localhost/engine/response/redirect/one'), 'Request' );
+    ok( $response->is_redirect, 'Response Redirection 3xx' );
+    is( $response->code, 302, 'Response Code' );
+    is( $response->header('X-Catalyst-Action'), 'engine/response/redirect/one', 'Test Action' );
+    is( $response->header('Location'), '/test/writing/is/boring', 'Response Header Location' );
+}
+
+{
+    ok( my $response = request('http://localhost/engine/response/redirect/two'), 'Request' );
+    ok( $response->is_redirect, 'Response Redirection 3xx' );
+    is( $response->code, 302, 'Response Code' );
+    is( $response->header('X-Catalyst-Action'), 'engine/response/redirect/two', 'Test Action' );
+    is( $response->header('Location'), 'http://www.google.com/', 'Response Header Location' );
+}
+
+{
+    ok( my $response = request('http://localhost/engine/response/redirect/three'), 'Request' );
+    ok( $response->is_redirect, 'Response Redirection 3xx' );
+    is( $response->code, 301, 'Response Code' );
+    is( $response->header('X-Catalyst-Action'), 'engine/response/redirect/three', 'Test Action' );
+    is( $response->header('Location'), 'http://www.google.com/', 'Response Header Location' );
+}
+
+{
+    ok( my $response = request('http://localhost/engine/response/redirect/four'), 'Request' );
+    ok( $response->is_redirect, 'Response Redirection 3xx' );
+    is( $response->code, 307, 'Response Code' );
+    is( $response->header('X-Catalyst-Action'), 'engine/response/redirect/four', 'Test Action' );
+    is( $response->header('Location'), 'http://www.google.com/', 'Response Header Location' );
+}
diff --git a/t/engine/response/status.t b/t/engine/response/status.t
new file mode 100644
index 0000000..d903959
--- /dev/null
+++ b/t/engine/response/status.t
@@ -0,0 +1,55 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+{
+    ok( my $response = request('http://localhost/engine/response/status/s200'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->code, 200, 'Response Code' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'engine/response/status/s200', 'Test Action' );
+    like( $response->content, qr/^200/, 'Response Content' );
+}
+
+{
+    ok( my $response = request('http://localhost/engine/response/status/s400'), 'Request' );
+    ok( $response->is_error, 'Response Client Error 4xx' );
+    is( $response->code, 400, 'Response Code' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'engine/response/status/s400', 'Test Action' );
+    like( $response->content, qr/^400/, 'Response Content' );
+}
+
+{
+    ok( my $response = request('http://localhost/engine/response/status/s403'), 'Request' );
+    ok( $response->is_error, 'Response Client Error 4xx' );
+    is( $response->code, 403, 'Response Code' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'engine/response/status/s403', 'Test Action' );
+    like( $response->content, qr/^403/, 'Response Content' );
+}
+
+{
+    ok( my $response = request('http://localhost/engine/response/status/s404'), 'Request' );
+    ok( $response->is_error, 'Response Client Error 4xx' );
+    is( $response->code, 404, 'Response Code' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'engine/response/status/s404', 'Test Action' );
+    like( $response->content, qr/^404/, 'Response Content' );
+}
+
+{
+    ok( my $response = request('http://localhost/engine/response/status/s500'), 'Request' );
+    ok( $response->is_error, 'Response Server Error 5xx' );
+    is( $response->code, 500, 'Response Code' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    is( $response->header('X-Catalyst-Action'), 'engine/response/status/s500', 'Test Action' );
+    like( $response->content, qr/^500/, 'Response Content' );
+}
diff --git a/t/lib/Catalyst/Plugin/Test/Errors.pm b/t/lib/Catalyst/Plugin/Test/Errors.pm
new file mode 100644
index 0000000..3365e2f
--- /dev/null
+++ b/t/lib/Catalyst/Plugin/Test/Errors.pm
@@ -0,0 +1,29 @@
+package Catalyst::Plugin::Test::Errors;
+
+use strict;
+
+sub error {
+    my $c = shift;
+
+    unless ( $_[0] ) {
+        $c->NEXT::error(@_);
+    }
+
+    if ( $_[0] =~ /^(Unknown resource|No default action defined)/ ) {
+        $c->response->status(404);
+    }
+    
+    if ( $_[0] =~ /^Couldn\'t forward/ ) {
+        $c->response->status(404);
+    }    
+
+    if ( $_[0] =~ /^Caught exception/ ) {
+        $c->response->status(500);
+    }
+
+    $c->response->headers->push_header( 'X-Catalyst-Error' => $_[0] );
+
+    $c->NEXT::error(@_);
+}
+
+1;
diff --git a/t/lib/Catalyst/Plugin/Test/Headers.pm b/t/lib/Catalyst/Plugin/Test/Headers.pm
new file mode 100644
index 0000000..0cb4794
--- /dev/null
+++ b/t/lib/Catalyst/Plugin/Test/Headers.pm
@@ -0,0 +1,33 @@
+package Catalyst::Plugin::Test::Headers;
+
+use strict;
+
+sub prepare {
+    my $class = shift;
+
+    my $c = $class->NEXT::prepare(@_);
+
+    $c->response->header( 'X-Catalyst-Engine' => $c->engine );
+    $c->response->header( 'X-Catalyst-Debug' => $c->debug ? 1 : 0 );
+    
+    {
+        my @components = sort keys %{ $c->components };
+        $c->response->headers->push_header( 'X-Catalyst-Components' => [ @components ] );
+    }
+
+    {
+        no strict 'refs';
+        my @plugins = sort grep { m/^Catalyst::Plugin/ } @{ $class . '::ISA' };
+        $c->response->headers->push_header( 'X-Catalyst-Plugins' => [ @plugins ] );
+    }
+
+    return $c;
+}
+
+sub prepare_action {
+    my $c = shift;
+    $c->NEXT::prepare_action(@_);
+    $c->res->header( 'X-Catalyst-Action' => $c->req->action );
+}
+
+1;
diff --git a/t/lib/TestApp.pm b/t/lib/TestApp.pm
new file mode 100644
index 0000000..e7f2ae2
--- /dev/null
+++ b/t/lib/TestApp.pm
@@ -0,0 +1,37 @@
+package TestApp;
+
+use strict;
+use Catalyst qw[Test::Errors Test::Headers];
+
+our $VERSION = '0.01';
+
+TestApp->config(
+    name => 'TestApp',
+    root => '/Users/chansen/src/MyApp/root',
+);
+
+TestApp->setup;
+
+#sub execute { return shift->NEXT::execute(@_); } # does not work, bug?
+
+sub execute {
+    my $c       = shift;
+    my $class   = ref( $c->component($_[0]) ) || $_[0];
+    my $action  = $c->actions->{reverse}->{"$_[1]"} || "$_[1]";
+
+    my $method;
+
+    if ( $action =~ /->(\w+)$/ ) { 
+        $method = $1; 
+    }
+    elsif ( $action =~ /\/(\w+)$/ ) { 
+        $method = $1; 
+    }
+
+    my $executed = sprintf( "%s->%s", $class, $method );
+
+    $c->response->headers->push_header( 'X-Catalyst-Executed' => $executed );
+    return $c->SUPER::execute(@_);
+}
+
+1;
diff --git a/t/lib/TestApp/Controller/Action.pm b/t/lib/TestApp/Controller/Action.pm
new file mode 100644
index 0000000..b745e82
--- /dev/null
+++ b/t/lib/TestApp/Controller/Action.pm
@@ -0,0 +1,17 @@
+package TestApp::Controller::Action;
+
+use strict;
+use base 'Catalyst::Base';
+
+sub begin : Private {
+    my ( $self, $c ) = @_;
+    $c->res->header( 'X-Test-Class'  => ref($self) );
+    $c->response->content_type('text/plain; charset=utf-8');
+}
+
+sub default : Private {
+    my ( $self, $c ) = @_;
+    $c->res->output("Error - TestApp::Controller::Action\n");
+}
+
+1;
diff --git a/t/lib/TestApp/Controller/Action/Absoulte.pm b/t/lib/TestApp/Controller/Action/Absoulte.pm
new file mode 100644
index 0000000..0c04b54
--- /dev/null
+++ b/t/lib/TestApp/Controller/Action/Absoulte.pm
@@ -0,0 +1,21 @@
+package TestApp::Controller::Action::Absoulte;
+
+use strict;
+use base 'TestApp::Controller::Action';
+
+sub action_absolute_one : Action Absolute {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+sub action_absolute_two : Action Global {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+sub action_absolute_three : Action Path('/action_absolute_three') {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+1;
diff --git a/t/lib/TestApp/Controller/Action/Begin.pm b/t/lib/TestApp/Controller/Action/Begin.pm
new file mode 100644
index 0000000..5a96c91
--- /dev/null
+++ b/t/lib/TestApp/Controller/Action/Begin.pm
@@ -0,0 +1,16 @@
+package TestApp::Controller::Action::Begin;
+
+use strict;
+use base 'TestApp::Controller::Action';
+
+sub begin : Private {
+    my ( $self, $c ) = @_;
+    $self->SUPER::begin($c);
+}
+
+sub default : Private {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+1;
diff --git a/t/lib/TestApp/Controller/Action/Default.pm b/t/lib/TestApp/Controller/Action/Default.pm
new file mode 100644
index 0000000..f3842a8
--- /dev/null
+++ b/t/lib/TestApp/Controller/Action/Default.pm
@@ -0,0 +1,11 @@
+package TestApp::Controller::Action::Default;
+
+use strict;
+use base 'TestApp::Controller::Action';
+
+sub default : Private {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+1;
diff --git a/t/lib/TestApp/Controller/Action/End.pm b/t/lib/TestApp/Controller/Action/End.pm
new file mode 100644
index 0000000..a132c22
--- /dev/null
+++ b/t/lib/TestApp/Controller/Action/End.pm
@@ -0,0 +1,15 @@
+package TestApp::Controller::Action::End;
+
+use strict;
+use base 'TestApp::Controller::Action';
+
+sub end : Private { 
+    my ( $self, $c ) = @_;
+}
+
+sub default : Private {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+1;
diff --git a/t/lib/TestApp/Controller/Action/Forward.pm b/t/lib/TestApp/Controller/Action/Forward.pm
new file mode 100644
index 0000000..ec3631a
--- /dev/null
+++ b/t/lib/TestApp/Controller/Action/Forward.pm
@@ -0,0 +1,37 @@
+package TestApp::Controller::Action::Forward;
+
+use strict;
+use base 'TestApp::Controller::Action';
+
+sub one : Relative {
+    my ( $self, $c ) = @_;
+    $c->forward('two');
+}
+
+sub two : Private {
+    my ( $self, $c ) = @_;
+    $c->forward('three');
+}
+
+sub three : Relative {
+    my ( $self, $c ) = @_;
+    $c->forward('four');
+}
+
+sub four : Private {
+    my ( $self, $c ) = @_;
+    $c->forward('five');
+}
+
+sub five : Relative {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+sub jojo : Relative {
+    my ( $self, $c ) = @_;
+    $c->forward('one');
+    $c->forward('three');
+}
+
+1;
diff --git a/t/lib/TestApp/Controller/Action/Inheritance.pm b/t/lib/TestApp/Controller/Action/Inheritance.pm
new file mode 100644
index 0000000..7a27561
--- /dev/null
+++ b/t/lib/TestApp/Controller/Action/Inheritance.pm
@@ -0,0 +1,59 @@
+package TestApp::Controller::Action::Inheritance;
+
+use strict;
+use base 'TestApp::Controller::Action';
+
+sub begin : Private {
+    my ( $self, $c ) = @_;
+    $self->SUPER::begin($c);
+}
+
+sub default : Private {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+sub end : Private {
+    my ( $self, $c ) = @_;
+}
+
+package TestApp::Controller::Action::Inheritance::A;
+
+use strict;
+use base 'TestApp::Controller::Action';
+
+sub begin : Private {
+    my ( $self, $c ) = @_;
+    $self->SUPER::begin($c);
+}
+
+sub default : Private {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+sub end : Private {
+    my ( $self, $c ) = @_;
+}
+
+package TestApp::Controller::Action::Inheritance::A::B;
+
+use strict;
+use base 'TestApp::Controller::Action';
+
+sub begin : Private {
+    my ( $self, $c ) = @_;
+    $self->SUPER::begin($c);
+}
+
+sub default : Private {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+sub end : Private {
+    my ( $self, $c ) = @_;
+}
+
+1;
+
diff --git a/t/lib/TestApp/Controller/Action/Path.pm b/t/lib/TestApp/Controller/Action/Path.pm
new file mode 100644
index 0000000..2c19f0e
--- /dev/null
+++ b/t/lib/TestApp/Controller/Action/Path.pm
@@ -0,0 +1,16 @@
+package TestApp::Controller::Action::Path;
+
+use strict;
+use base 'TestApp::Controller::Action';
+
+sub one : Action Path("a path with spaces") {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+sub two : Action Path("åäö") {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+1;
diff --git a/t/lib/TestApp/Controller/Action/Private.pm b/t/lib/TestApp/Controller/Action/Private.pm
new file mode 100644
index 0000000..d067223
--- /dev/null
+++ b/t/lib/TestApp/Controller/Action/Private.pm
@@ -0,0 +1,36 @@
+package TestApp::Controller::Action::Private;
+
+use strict;
+use base 'TestApp::Controller::Action';
+
+sub default : Private {
+    my ( $self, $c ) = @_;
+    $c->res->output('access denied');
+}
+
+sub one : Private { 
+    my ( $self, $c ) = @_;
+    $c->res->output('access allowed');
+}
+
+sub two : Private Relative {
+    my ( $self, $c ) = @_;
+    $c->res->output('access allowed');
+}
+
+sub three : Private Absolute {
+    my ( $self, $c ) = @_;
+    $c->res->output('access allowed');
+}
+
+sub four : Private Path('/action/private/four') {
+    my ( $self, $c ) = @_;
+    $c->res->output('access allowed');
+}
+
+sub five : Private Path('five') {
+    my ( $self, $c ) = @_;
+    $c->res->output('access allowed');
+}
+
+1;
diff --git a/t/lib/TestApp/Controller/Action/Regexp.pm b/t/lib/TestApp/Controller/Action/Regexp.pm
new file mode 100644
index 0000000..5413b6c
--- /dev/null
+++ b/t/lib/TestApp/Controller/Action/Regexp.pm
@@ -0,0 +1,16 @@
+package TestApp::Controller::Action::Regexp;
+
+use strict;
+use base 'TestApp::Controller::Action';
+
+sub one : Action Regexp('^action/regexp/(\w+)/(\d+)$') {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+sub two : Action Regex('^action/regexp/(\d+)/(\w+)$') {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+1;
diff --git a/t/lib/TestApp/Controller/Action/Relative.pm b/t/lib/TestApp/Controller/Action/Relative.pm
new file mode 100644
index 0000000..dce2eb8
--- /dev/null
+++ b/t/lib/TestApp/Controller/Action/Relative.pm
@@ -0,0 +1,26 @@
+package TestApp::Controller::Action::Relative;
+
+use strict;
+use base 'TestApp::Controller::Action';
+
+sub one : Action Relative {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+sub two : Action Local {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+sub three : Action Path('three') {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+sub four : Action Path('four/five/six') {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+1;
diff --git a/t/lib/TestApp/Controller/Dump.pm b/t/lib/TestApp/Controller/Dump.pm
new file mode 100644
index 0000000..0a259e9
--- /dev/null
+++ b/t/lib/TestApp/Controller/Dump.pm
@@ -0,0 +1,26 @@
+package TestApp::Controller::Dump;
+
+use strict;
+use base 'Catalyst::Base';
+
+sub default : Action Private {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump');
+}
+
+sub parameters : Action Relative {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Parameters');
+}
+
+sub request : Action Relative {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+sub response : Action Relative {
+    my ( $self, $c ) = @_;
+    $c->forward('TestApp::View::Dump::Response');
+}
+
+1;
diff --git a/t/lib/TestApp/Controller/Engine/Response/Cookies.pm b/t/lib/TestApp/Controller/Engine/Response/Cookies.pm
new file mode 100644
index 0000000..a66fdca
--- /dev/null
+++ b/t/lib/TestApp/Controller/Engine/Response/Cookies.pm
@@ -0,0 +1,20 @@
+package TestApp::Controller::Engine::Response::Cookies;
+
+use strict;
+use base 'Catalyst::Base';
+
+sub one : Relative {
+    my ( $self, $c ) = @_;
+    $c->res->cookies->{Catalyst} = { value => 'Cool',     path => '/' };
+    $c->res->cookies->{Cool}     = { value => 'Catalyst', path => '/' };
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+sub two : Relative {
+    my ( $self, $c ) = @_;
+    $c->res->cookies->{Catalyst} = { value => 'Cool',     path => '/' };
+    $c->res->cookies->{Cool}     = { value => 'Catalyst', path => '/' };
+    $c->res->redirect('http://www.google.com/');
+}
+
+1;
diff --git a/t/lib/TestApp/Controller/Engine/Response/Errors.pm b/t/lib/TestApp/Controller/Engine/Response/Errors.pm
new file mode 100644
index 0000000..63c3f35
--- /dev/null
+++ b/t/lib/TestApp/Controller/Engine/Response/Errors.pm
@@ -0,0 +1,23 @@
+package TestApp::Controller::Engine::Response::Errors;
+
+use strict;
+use base 'Catalyst::Base';
+
+sub one : Relative {
+    my ( $self, $c ) = @_;
+    my $a = 0;
+    my $b = 0;
+    my $c = $a / $b;
+}
+
+sub two : Relative {
+    my ( $self, $c ) = @_;
+    $c->forward('/non/existing/path');
+}
+
+sub three : Relative {
+    my ( $self, $c ) = @_;
+    die("I'm going to die!\n");
+}
+
+1;
diff --git a/t/lib/TestApp/Controller/Engine/Response/Headers.pm b/t/lib/TestApp/Controller/Engine/Response/Headers.pm
new file mode 100644
index 0000000..7b624f4
--- /dev/null
+++ b/t/lib/TestApp/Controller/Engine/Response/Headers.pm
@@ -0,0 +1,14 @@
+package TestApp::Controller::Engine::Response::Headers;
+
+use strict;
+use base 'Catalyst::Base';
+
+sub one : Relative {
+    my ( $self, $c ) = @_;
+    $c->res->header( 'X-Header-Catalyst' => 'Cool'      );
+    $c->res->header( 'X-Header-Cool'     => 'Catalyst'  );
+    $c->res->header( 'X-Header-Numbers'  => [ 1 .. 10 ] );
+    $c->forward('TestApp::View::Dump::Request');
+}
+
+1;
diff --git a/t/lib/TestApp/Controller/Engine/Response/Redirect.pm b/t/lib/TestApp/Controller/Engine/Response/Redirect.pm
new file mode 100644
index 0000000..f7d7ec0
--- /dev/null
+++ b/t/lib/TestApp/Controller/Engine/Response/Redirect.pm
@@ -0,0 +1,29 @@
+package TestApp::Controller::Engine::Response::Redirect;
+
+use strict;
+use base 'Catalyst::Base';
+
+sub one : Relative {
+    my ( $self, $c ) = @_;
+    $c->response->redirect('/test/writing/is/boring');
+}
+
+sub two : Relative {
+    my ( $self, $c ) = @_;
+    $c->response->redirect('http://www.google.com/');
+}
+
+sub three : Relative {
+    my ( $self, $c ) = @_;
+    $c->response->redirect('http://www.google.com/');
+    $c->response->status(301); # Moved Permanently
+}
+
+sub four : Relative {
+    my ( $self, $c ) = @_;
+    $c->response->redirect('http://www.google.com/');
+    $c->response->status(307); # Temporary Redirect
+}
+
+1;
+
diff --git a/t/lib/TestApp/Controller/Engine/Response/Status.pm b/t/lib/TestApp/Controller/Engine/Response/Status.pm
new file mode 100644
index 0000000..66fa243
--- /dev/null
+++ b/t/lib/TestApp/Controller/Engine/Response/Status.pm
@@ -0,0 +1,42 @@
+package TestApp::Controller::Engine::Response::Status;
+
+use strict;
+use base 'Catalyst::Base';
+
+sub begin : Private {
+    my ( $self, $c ) = @_;
+    $c->response->content_type('text/plain');
+    return 1;
+}
+
+sub s200 : Relative {
+    my ( $self, $c ) = @_;
+    $c->res->status(200);
+    $c->res->output("200 OK\n");
+}
+
+sub s400 : Relative {
+    my ( $self, $c ) = @_;
+    $c->res->status(400);
+    $c->res->output("400 Bad Request\n");
+}
+
+sub s403 : Relative {
+    my ( $self, $c ) = @_;
+    $c->res->status(403);
+    $c->res->output("403 Forbidden\n");
+}
+
+sub s404 : Relative {
+    my ( $self, $c ) = @_;
+    $c->res->status(404);
+    $c->res->output("404 Not Found\n");
+}
+
+sub s500 : Relative {
+    my ( $self, $c ) = @_;
+    $c->res->status(500);
+    $c->res->output("500 Internal Server Error\n");
+}
+
+1;
diff --git a/t/lib/TestApp/View/Dump.pm b/t/lib/TestApp/View/Dump.pm
new file mode 100644
index 0000000..9e0aa63
--- /dev/null
+++ b/t/lib/TestApp/View/Dump.pm
@@ -0,0 +1,37 @@
+package TestApp::View::Dump;
+
+use strict;
+use base qw[Catalyst::Base];
+
+use Data::Dumper ();
+
+sub dump {
+    my ( $self, $reference ) = @_;
+
+    return unless $reference;
+
+    my $dumper = Data::Dumper->new( [ $reference ] );
+    $dumper->Indent(1);
+    $dumper->Purity(1);
+    $dumper->Useqq(0);
+    $dumper->Deepcopy(1);
+    $dumper->Quotekeys(0);
+    $dumper->Terse(1);
+
+    return $dumper->Dump;
+}
+
+sub process {
+    my ( $self, $c, $reference ) = @_;
+
+    if ( my $output = $self->dump( $reference || $c->stash->{dump} || $c->stash ) ) {
+
+	    $c->res->headers->content_type('text/plain');
+	    $c->res->output($output);
+       return 1;
+    }
+
+    return 0;
+}
+
+1;
diff --git a/t/lib/TestApp/View/Dump/Parameters.pm b/t/lib/TestApp/View/Dump/Parameters.pm
new file mode 100644
index 0000000..d774a33
--- /dev/null
+++ b/t/lib/TestApp/View/Dump/Parameters.pm
@@ -0,0 +1,11 @@
+package TestApp::View::Dump::Parameters;
+
+use strict;
+use base qw[TestApp::View::Dump];
+
+sub process {
+    my ( $self, $c ) = @_;
+    return $self->SUPER::process( $c, $c->req->parameters );
+}
+
+1;
diff --git a/t/lib/TestApp/View/Dump/Request.pm b/t/lib/TestApp/View/Dump/Request.pm
new file mode 100644
index 0000000..5655b3f
--- /dev/null
+++ b/t/lib/TestApp/View/Dump/Request.pm
@@ -0,0 +1,11 @@
+package TestApp::View::Dump::Request;
+
+use strict;
+use base qw[TestApp::View::Dump];
+
+sub process {
+    my ( $self, $c ) = @_;
+    return $self->SUPER::process( $c, $c->request );
+}
+
+1;
diff --git a/t/lib/TestApp/View/Dump/Response.pm b/t/lib/TestApp/View/Dump/Response.pm
new file mode 100644
index 0000000..010d01c
--- /dev/null
+++ b/t/lib/TestApp/View/Dump/Response.pm
@@ -0,0 +1,11 @@
+package TestApp::View::Dump::Response;
+
+use strict;
+use base qw[TestApp::View::Dump];
+
+sub process {
+    my ( $self, $c ) = @_;
+    return $self->SUPER::process( $c, $c->response );
+}
+
+1;
diff --git a/t/plugin/loaded.t b/t/plugin/loaded.t
new file mode 100644
index 0000000..c25943c
--- /dev/null
+++ b/t/plugin/loaded.t
@@ -0,0 +1,26 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+
+use Test::More no_plan => 1;
+use Catalyst::Test 'TestApp';
+
+
+{
+    my @expected = qw[
+        Catalyst::Plugin::Test::Errors
+        Catalyst::Plugin::Test::Headers
+    ];
+
+    my $expected = join( ", ", @expected );
+
+    ok( my $response = request('http://localhost/dump/request'), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    is( $response->content_type, 'text/plain', 'Response Content-Type' );
+    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
+    is( $response->header('X-Catalyst-Plugins'), $expected, 'Loaded plugins' );
+}