Added an extra test that dies in the middle of a chain

[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Action / Chained.pm

diff --git a/t/lib/TestApp/Controller/Action/Chained.pm b/t/lib/TestApp/Controller/Action/Chained.pm
index 2af1ec6..4c02130 100644 (file)
--- a/t/lib/TestApp/Controller/Action/Chained.pm
+++ b/t/lib/TestApp/Controller/Action/Chained.pm
@@ -143,10 +143,19 @@ sub chain_dt_a :Chained :PathPart('chained/chain_dt') :CaptureArgs(1) {
 sub chain_dt_b :Chained('chain_dt_a') :PathPart('end') :Args(1) { }
 
 #
+#   Error in the middle of a chain
+#
+sub chain_error_a :Chained :PathPart('chained/chain_error') :CaptureArgs(1) {
+    $_[1]->error( 'break in the middle of a chain' );
+}
+
+sub chain_error_b :Chained('chain_error_a') :PathPart('end') :Args(1) {}
+
+#
 #   Die in the middle of a chain
 #
 sub chain_die_a :Chained :PathPart('chained/chain_die') :CaptureArgs(1) {
-    $_[1]->error( 'break in the middle of a chain' );
+    die( "die in the middle of a chain\n" );
 }
 
 sub chain_die_b :Chained('chain_die_a') :PathPart('end') :Args(1) {}