Item14380: fix getUrlHost unit test

foswiki · Feb 27, 2023 · 19c83ae · 19c83ae
1 parent 7f4104c
commit 19c83ae
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/UnitTestContrib/lib/Unit/Request.pm b/UnitTestContrib/lib/Unit/Request.pm
@@ -58,13 +58,16 @@ sub setUrl {
         my $host     = $2;
         if ( $protocol =~ /https/i ) {
             $this->secure(1);
+            $ENV{HTTPS} = 'ON';
         }
         else {
             $this->secure(0);
+            $ENV{HTTPS} = undef;
         }
 
         #print STDERR "setting Host to $host\n";
         $this->header( -name => 'Host', -value => $host );
+        $ENV{HTTP_HOST} = $host;
     }
 
     my @pairs = split /[&;]/, $urlParams;