t/22-suffix_env.t

   1 use strict;
   2 use warnings;
   3
   4 use FindBin;
   5 use lib "$FindBin::Bin/lib";
   6
   7 use Test::More;
   8
   9 BEGIN {
  10     eval { require Catalyst; Catalyst->VERSION( '5.80001' ); };
  11
  12     plan skip_all => 'Catalyst 5.80001 required' if $@;
  13     plan tests => 3;
  14
  15     $ENV{ TESTAPP_CONFIG_LOCAL_SUFFIX } = 'test';
  16     use_ok 'Catalyst::Test', 'TestApp';
  17 }
  18
  19 ok my ( $res, $c ) = ctx_request( '/' ), 'context object';
  20
  21 is $c->get_config_local_suffix, 'test', 'suffix is "test"';