cvs commit: httpd-test/perl-framework/t/ssl varlookup.t

[dougm]

dougm       01/11/16 18:23:57

  Modified:    perl-framework/t/ssl varlookup.t
  Log:
  test SERVER_PORT now that generated vhost config includes the port
  
  Revision  Changes    Path
  1.4       +2 -1      httpd-test/perl-framework/t/ssl/varlookup.t
  
  Index: varlookup.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/ssl/varlookup.t,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- varlookup.t       2001/11/15 21:55:43     1.3
  +++ varlookup.t       2001/11/17 02:23:57     1.4
  @@ -15,6 +15,7 @@
   
   #Apache::TestRequest::scheme('https');
   local $vars->{scheme} = 'https';
  +my $port = $config->port;
   
   my $url = '/test_ssl_var_lookup';
   my(%lookup, @vars);
  @@ -117,7 +118,7 @@
   QUERY_STRING                'QUERY_STRING'
   SERVER_SOFTWARE             qr(^$server->{version})
   SERVER_ADMIN                $vars->{serveradmin}
  -SERVER_PORT
  +SERVER_PORT                 "$port"
   SERVER_NAME                 $vars->{servername}
   SERVER_PROTOCOL             qr(^HTTP/1\.\d$)
   REMOTE_IDENT