Commit | Line | Data |
82239955 |
1 | #!perl\r |
2 | \r |
3 | use strict;\r |
4 | use warnings;\r |
5 | \r |
6 | use FindBin;\r |
7 | use lib "$FindBin::Bin/lib";\r |
8 | \r |
9 | use Test::More tests => 2;\r |
10 | use Catalyst::Test 'TestApp';\r |
11 | \r |
12 | SKIP:\r |
13 | {\r |
2cb3d585 |
14 | unless ( TestApp->isa('Catalyst::Plugin::SubRequest') ) {\r |
9d5f0633 |
15 | skip "Install Catalyst::Plugin::SubRequest >= 0.15 for these tests", 2;\r |
16 | }\r |
17 | unless ( $Catalyst::Plugin::SubRequest::VERSION >= 0.15 ) {\r |
18 | skip "Need Catalyst::Plugin::SubRequest >= 0.15 for these tests", 2;\r |
2cb3d585 |
19 | }\r |
82239955 |
20 | \r |
21 | ok( my $res = request('http://localhost/subtest'), 'Request' );\r |
22 | is( $res->content, 'subtest2 ok', 'SubRequest ok' );\r |
23 | }\r |
9d5f0633 |
24 | \r |