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 | |
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 | |