summaryrefslogtreecommitdiffstats
path: root/debian/perl-framework/t/php/umask.t
blob: 769ffabccd0d7e087a96e82e8db763c5f50abe87 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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");
}