15 lines
332 B
Perl
15 lines
332 B
Perl
use strict;
|
|
use warnings FATAL => 'all';
|
|
|
|
use Apache::Test;
|
|
use Apache::TestRequest;
|
|
use Apache::TestUtil;
|
|
|
|
my @codes = (404, 599);
|
|
|
|
plan tests => @codes + 0, need_php;
|
|
|
|
foreach my $code (@codes) {
|
|
ok t_cmp(GET_RC("/php/status.php?code=$code"), $code,
|
|
"regression test for http://bugs.php.net/bug.php?id=31519");
|
|
}
|