21 lines
589 B
Perl
21 lines
589 B
Perl
use strict;
|
|
use warnings FATAL => 'all';
|
|
|
|
use Apache::Test;
|
|
use Apache::TestUtil;
|
|
use Apache::TestRequest;
|
|
|
|
plan tests => 2 * 2, need 'rewrite';
|
|
|
|
foreach my $dir ("one/", "two/") {
|
|
my $r = GET("/security/CAN-2005-2491/" . $dir);
|
|
|
|
# LWP will generate the annoying fake-500 response if the server
|
|
# segfaults before generating its own 500 response; check
|
|
# the response message explicitly to rule that out.
|
|
|
|
ok t_cmp($r->message, 'Internal Server Error',
|
|
'check that server did not segfault');
|
|
|
|
ok t_cmp($r->code, 500, "check for 500 response error");
|
|
}
|