4 use Test::More tests => 3;
5 use Catalyst::Controller::WrapCGI;
7 my $obj = Catalyst::Controller::WrapCGI->new;
12 local $have->{MOD_PERL} = 1;
14 $obj->_filtered_env($have),
16 "default: pass all except MOD_PERL",
21 local $obj->{CGI}{pass_env} = 'MOD_PERL';
22 local $have->{MOD_PERL} = 1;
24 $obj->_filtered_env($have),
26 "empty when all passes are killed",
31 local $obj->{CGI}{kill_env} = [];
32 local $have->{MOD_PERL} = 1;
33 local $want->{MOD_PERL} = 1;
35 $obj->_filtered_env($have),
37 "explicit override for default kill",