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 | |
14 | if ( ! TestApp->isa('Catalyst::Plugin::SubRequest') ) {\r | |
15 | skip "Install the SubRequest plugin for these tests", 2;\r | |
16 | }\r | |
17 | \r | |
18 | ok( my $res = request('http://localhost/subtest'), 'Request' );\r | |
19 | is( $res->content, 'subtest2 ok', 'SubRequest ok' );\r | |
20 | }\r |