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