1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
use Test::More;
use CGI;
use Capture::Tiny 'capture_stdout';
use CGI::Compile;
#no warnings 'signal'; # for MSWin32
my %orig_sig = %SIG;
# set something special
$SIG{TERM} = $orig_sig{TERM} = sub {TERM};
# perl < 5.8.9 won't set a %SIG entry to undef, it sets it to ''
%orig_sig = map { defined $_ ? $_ : '' } %orig_sig
if $] < 5.008009;
$orig_sig{USR1} = 'IGNORE' if $^O eq 'MSWin32';
my $sub = CGI::Compile->compile("t/hello.cgi");
is_deeply \%SIG, \%orig_sig, '%SIG preserved during compile';
$ENV{REQUEST_METHOD} = 'GET';
$ENV{QUERY_STRING} = 'name=foo';
my $stdout = capture_stdout { $sub->() };
like $stdout, qr/Hello foo counter=1/;
is_deeply \%SIG, \%orig_sig, '%SIG preserved during run';
$ENV{QUERY_STRING} = 'exit_status=1';
eval { capture_stdout { $sub->() } };
like $@, qr/^exited nonzero: 1 /, 'non-zero exit status';
$ENV{QUERY_STRING} = 'name=bar';
$stdout = capture_stdout { $sub->() };
like $stdout, qr/Hello bar counter=3/;
done_testing;
|
