-#!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
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use Test::More tests => 2;
+use Catalyst::Test 'TestApp';
+
+SKIP:
+{
+ unless ( TestApp->isa('Catalyst::Plugin::SubRequest') ) {
+ skip "Install Catalyst::Plugin::SubRequest >= 0.15 for these tests", 2;
+ }
+ unless ( $Catalyst::Plugin::SubRequest::VERSION >= 0.15 ) {
+ skip "Need Catalyst::Plugin::SubRequest >= 0.15 for these tests", 2;
+ }
+
+ ok( my $res = request('http://localhost/subtest'), 'Request' );
+ is( $res->content, 'subtest2 ok', 'SubRequest ok' );
+}
+