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
|
# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestUtil;
use Apache::TestRequest;
my $location = "/TestError__runtime";
my @untrapped = qw(plain_mp_error plain_non_mp_error
die_hook_confess_mp_error die_hook_confess_non_mp_error
die_hook_custom_mp_error die_hook_custom_non_mp_error);
my @trapped = qw(eval_block_mp_error eval_block_non_mp_error
eval_string_mp_error eval_block_non_error
overload_test);
plan tests => @untrapped + @trapped;
for my $type (@untrapped) {
my $res = GET("$location?$type");
#t_debug($res->content);
ok t_cmp(
$res->code,
500,
"500 error on $type exception",
);
}
for my $type (@trapped) {
my $body = GET_BODY("$location?$type");
ok t_cmp(
$body,
"ok $type",
"200 on $type exception",
);
}
|
