httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/t/modules vhost_alias.t
Date Sat, 20 Oct 2001 05:02:58 GMT
dougm       01/10/19 22:02:58

  Modified:    perl-framework/t/modules vhost_alias.t
  Log:
  change to use Apache::TestUtil::write_shell_script to pass win32
  
  Revision  Changes    Path
  1.8       +6 -6      httpd-test/perl-framework/t/modules/vhost_alias.t
  
  Index: vhost_alias.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/modules/vhost_alias.t,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- vhost_alias.t	2001/09/10 17:12:37	1.7
  +++ vhost_alias.t	2001/10/20 05:02:58	1.8
  @@ -6,9 +6,10 @@
   use Apache::TestRequest;
   
   my $url        = '/index.html';
  -my $cgi_name   = "test-cgi.sh";
  +my $cgi_name   = "test-cgi";
   my $cgi_string = "test cgi for";
   my $root       = "htdocs/modules/vhost_alias";
  +my $ext;
   
   my @vh = qw(www.vha-test.com big.server.name.from.heck.org ab.com w-t-f.net);
   
  @@ -72,15 +73,14 @@
   
       ## write cgi ##
       my $cgi_content = <<SCRIPT;
  -#!/bin/sh
   echo Content-type: text/html
   echo
   echo $cgi_string $_
   SCRIPT
   
  -    t_write_file("$d$cgi_name",$cgi_content);
  +    $ext = Apache::TestUtil::write_shell_script("$d$cgi_name",
  +                                                $cgi_content);
       chmod 0755, "$d$cgi_name";
  -
   }
   
   ## run tests ##
  @@ -92,9 +92,9 @@
               );
   
       ## test VirtualScriptAlias ##
  -    my $cgi_uri = "/cgi-bin/$cgi_name";
  +    my $cgi_uri = "/cgi-bin/$cgi_name.$ext";
       my $actual  = GET_BODY $cgi_uri, Host => $_;
  -    chomp $actual;
  +    $actual =~ s/[\r\n]+$//;
       ok t_cmp("$cgi_string $_",
                $actual,
                "VirtualScriptAlias test"
  
  
  

Mime
View raw message