Commit | Line | Data |
a98f477e |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use FindBin; |
5 | use lib "$FindBin::Bin/lib"; |
6 | |
fc74bcdb |
7 | use Test::More; |
a98f477e |
8 | |
9 | BEGIN { |
fc74bcdb |
10 | eval { require Catalyst; Catalyst->VERSION( '5.80001' ); }; |
11 | |
12 | plan skip_all => 'Catalyst 5.80001 required' if $@; |
13 | plan tests => 3; |
14 | |
a98f477e |
15 | $ENV{ TESTAPP_CONFIG } = 'test.perl'; |
16 | use_ok 'Catalyst::Test', 'TestApp'; |
17 | } |
18 | |
19 | ok my ( $res, $c ) = ctx_request( '/' ), 'context object'; |
20 | |
21 | is_deeply [ $c->get_config_path ], [ qw( test.perl perl ) ], 'path is "test.perl"'; |