Commit | Line | Data |
c212b57b |
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 | |
46a4350c |
9 | delete $ENV{MOD_PERL}; |
10 | |
c212b57b |
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 | |