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