t/env.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More tests => 3;
   5 use Catalyst::Controller::WrapCGI;
   6
   7 my $obj = Catalyst::Controller::WrapCGI->new;
   8
   9 delete $ENV{MOD_PERL};
  10
  11 my $want = {%ENV};
  12 my $have = {%ENV};
  13 {
  14   local $have->{MOD_PERL} = 1;
  15   is_deeply(
  16     $obj->_filtered_env($have),
  17     $want,
  18     "default: pass all except MOD_PERL",
  19   );
  20 }
  21
  22 {
  23   local $obj->{CGI}{pass_env} = 'MOD_PERL';
  24   local $have->{MOD_PERL} = 1;
  25   is_deeply(
  26     $obj->_filtered_env($have),
  27     {},
  28     "empty when all passes are killed",
  29   );
  30 }
  31
  32 {
  33   local $obj->{CGI}{kill_env} = [];
  34   local $have->{MOD_PERL} = 1;
  35   local $want->{MOD_PERL} = 1;
  36   is_deeply(
  37     $obj->_filtered_env($have),
  38     $want,
  39     "explicit override for default kill",
  40   );
  41 }
  42