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 my $want = {%ENV};
  10 my $have = {%ENV};
  11 {
  12   local $have->{MOD_PERL} = 1;
  13   is_deeply(
  14     $obj->_filtered_env($have),
  15     $want,
  16     "default: pass all except MOD_PERL",
  17   );
  18 }
  19
  20 {
  21   local $obj->{CGI}{pass_env} = 'MOD_PERL';
  22   local $have->{MOD_PERL} = 1;
  23   is_deeply(
  24     $obj->_filtered_env($have),
  25     {},
  26     "empty when all passes are killed",
  27   );
  28 }
  29
  30 {
  31   local $obj->{CGI}{kill_env} = [];
  32   local $have->{MOD_PERL} = 1;
  33   local $want->{MOD_PERL} = 1;
  34   is_deeply(
  35     $obj->_filtered_env($have),
  36     $want,
  37     "explicit override for default kill",
  38   );
  39 }
  40