X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flive_loop.t;fp=t%2Flive_loop.t;h=23f2ad293208c3de28d0993550db62a025cfb3f3;hb=1627551a60fe1e220d390a565f793dea27cd36a6;hp=0000000000000000000000000000000000000000;hpb=f1bbebac7a9ae06ed2b750440d4369dedb5d9e80;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/live_loop.t b/t/live_loop.t
new file mode 100644
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' );