cvs commit: httpd-test/perl-framework/t/modules autoindex2.t

[jorton]

jorton      2004/05/18 02:48:13

  Modified:    perl-framework/t/modules autoindex2.t
  Log:
  Adjust for 1.3 autoindex behaviour.
  
  Revision  Changes    Path
  1.4       +3 -2      httpd-test/perl-framework/t/modules/autoindex2.t
  
  Index: autoindex2.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/modules/autoindex2.t,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -d -u -r1.3 -r1.4
  --- autoindex2.t      5 Feb 2002 15:03:20 -0000       1.3
  +++ autoindex2.t      18 May 2004 09:48:13 -0000      1.4
  @@ -18,14 +18,15 @@
   my $documentroot = $vars->{documentroot};
   my $base_dir = catdir $documentroot, "modules", "autoindex2";
   my $base_uri = "/modules/autoindex2";
  +my $have_apache_2 = have_apache 2;
   
   # which sub-dir listings should be seen in mod_autoindex's output
   # 1 == should appear
   # 0 == should not appear
   my %dirs = (
      dir_normal    => 1, # obvious
  -   dir_protected => 0, # 
  -   dir_broken    => 0, # 
  +   dir_protected => $have_apache_2?0:1, # 
  +   dir_broken    => $have_apache_2?0:1, # 
   );
   
   plan tests => 3, ['autoindex'];