Static::Simple, added failing test for subrequest NEXT problem

[catagits/Catalyst-Plugin-Static-Simple.git] / t / 08subreq.t

diff --git a/t/08subreq.t b/t/08subreq.t
new file mode 100644 (file)
index 0000000..bd3f06c
--- /dev/null
+++ b/t/08subreq.t
@@ -0,0 +1,20 @@
+#!perl\r
+\r
+use strict;\r
+use warnings;\r
+\r
+use FindBin;\r
+use lib "$FindBin::Bin/lib";\r
+\r
+use Test::More tests => 2;\r
+use Catalyst::Test 'TestApp';\r
+\r
+SKIP:\r
+{\r
+    if ( ! TestApp->isa('Catalyst::Plugin::SubRequest') ) {\r
+        skip "Install the SubRequest plugin for these tests", 2;\r
+    }\r
+\r
+    ok( my $res = request('http://localhost/subtest'), 'Request' );\r
+    is( $res->content, 'subtest2 ok', 'SubRequest ok' );\r
+}\r