Commit | Line | Data |
---|---|---|
bf44a132 | 1 | use strict; |
2 | use warnings; | |
3 | ||
4 | use FindBin; | |
5 | use lib "$FindBin::Bin/lib"; | |
6 | ||
7 | use Test::More tests => 2; | |
8 | ||
9 | BEGIN { | |
10 | $ENV{TESTAPP_CONFIG_LOCAL_SUFFIX} = 'test'; | |
11 | } | |
12 | use Catalyst::Test 'TestApp'; | |
13 | ||
14 | ok my ($res, $c) = ctx_request('/'), 'context object'; | |
15 | ||
16 | is $c->get_config_local_suffix, 'test', 'RT #47937'; |