X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestAppOneView%2FContext.pm;fp=t%2Flib%2FTestAppOneView%2FContext.pm;h=8d439b4763aa5506832978360d31c857d6c3c3eb;hb=c034d9bff89fd9191dd3679eab3d4656397eef3a;hp=0000000000000000000000000000000000000000;hpb=2ecb3b2ba79cd50746abcdf1620041c5e0851c0f;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/lib/TestAppOneView/Context.pm b/t/lib/TestAppOneView/Context.pm
new file mode 100644
index 0000000..8d439b4
--- /dev/null
+++ b/t/lib/TestAppOneView/Context.pm
@@ -0,0 +1,17 @@
+package TestAppOneView::Context;
+use Moose;
+extends 'Catalyst::Context'; 
+
+# Replace the very large HTML error page with
+# useful info if something crashes during a test
+sub finalize_error {
+    my $c = shift;
+
+    $c->next::method(@_);
+
+    $c->res->status(500);
+    $c->res->body( 'FATAL ERROR: ' . join( ', ', @{ $c->error } ) );
+}
+
+1;
+