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