Looping and recursion tests plus a fix

[catagits/Catalyst-Runtime.git] / t / live_loop.t

diff --git a/t/live_loop.t b/t/live_loop.t
new file mode 100644 (file)
index 0000000..23f2ad2
--- /dev/null
+++ b/t/live_loop.t
@@ -0,0 +1,14 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use Test::More tests => 3;
+use Catalyst::Test 'TestApp';
+
+ok( my $response = request('http://localhost/loop_test'), 'Request' );
+ok( $response->is_success, 'Response Successful 2xx' );
+ok( $response->header('X-Class-Forward-Test-Method'), 'Loop OK' );