19 lines
371 B
Perl
19 lines
371 B
Perl
use strict;
|
|
use warnings FATAL => 'all';
|
|
|
|
use Apache::Test;
|
|
use Apache::TestRequest;
|
|
use Apache::TestUtil;
|
|
|
|
## test that umask() is reset after script execution
|
|
|
|
plan tests => 4, need_php4;
|
|
|
|
my $first = GET_BODY "/php/umask.php";
|
|
|
|
foreach my $n (1..4) {
|
|
my $try = GET_BODY "/php/umask.php";
|
|
|
|
ok t_cmp($try, $first, "umask was $try not $first for request $n");
|
|
}
|
|
|