cvs commit: httpd-test/perl-framework/t/php umask.t

[jorton]

jorton      2004/04/22 07:31:19

  Added:       perl-framework/t/htdocs/php umask.php
               perl-framework/t/php umask.t
  Log:
  Add tests for PHP umask reset "feature" which is broken in the
  2.0 SAPIs.
  
  Revision  Changes    Path
  1.1                  httpd-test/perl-framework/t/htdocs/php/umask.php
  
  Index: umask.php
  ===================================================================
  <? print umask(000); ?>
  
  
  1.1                  httpd-test/perl-framework/t/php/umask.t
  
  Index: umask.t
  ===================================================================
  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, have_module 'php4';
  
  my $first = GET_BODY "/php/umask.php";
  
  foreach my $n (1..4) {
      my $try = GET_BODY "/php/umask.php";
  
      ok t_cmp($first, $try, "umask was $try not $first for request $n");
  }