t/30-catalyst_test_suffix.t

   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';