X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=test%2Fruntest;h=87c78070e45dd9a2f1aac88acf912deafbc4619c;hb=134c037ed24f77957556f40856659c1456df1bcc;hp=be35e157fd87dc6a1676ea47a83ec8def1aaab11;hpb=cc49c6977b5736353b07e174b0fbb01086097f80;p=exim.git

diff --git a/test/runtest b/test/runtest
index be35e157f..87c78070e 100755
--- a/test/runtest
+++ b/test/runtest
@@ -1256,9 +1256,10 @@ RESET_AFTER_EXTRA_LINE_READ:
     # Not all platforms support TCP Fast Open, and the compile omits the check
     if (s/\S+ in hosts_try_fastopen\? (no \(option unset\)|yes \(matched "\*"\))\n$//)
       {
+      chomp;
       $_ .= <IN>;
       s/ \.\.\. >>> / ... /;
-      if (s/ non-TFO mode connection attempt to 224.0.0.0, 0 data\b$//) { $_ .= <IN>; }
+      if (s/ non-TFO mode connection attempt to 224.0.0.0, 0 data\b$//) { chomp; $_ .= <IN>; }
       s/Address family not supported by protocol family/Network Error/;
       s/Network is unreachable/Network Error/;
       }
@@ -3458,7 +3459,8 @@ while (not ($parm_ipv4 and $parm_ipv6) and defined($_ = <IFCONFIG>))
     $parm_ipv4 = $1;
     }
 
-  if (not $parm_ipv6 and /^\s*inet6(?:\saddr)?:?\s?([abcdef\d:]+)(?:%[^ \/]+)?(?:\/\d+)?/i)
+  if (   (not $parm_ipv6 or $parm_ipv6 =~ /%/)
+     and /^\s*inet6(?:\saddr)?:?\s?([abcdef\d:]+)(?:%[^ \/]+)?(?:\/\d+)?/i)
     {
     next if $1 eq '::' or $1 eq '::1' or $1 =~ /^ff00/i or $1 =~ /^fe80::1/i;
     $parm_ipv6 = $1;
@@ -3827,6 +3829,10 @@ DIR: for (my $i = 0; $i < @test_dirs; $i++)
 	}
 	unlink("$parm_cwd/test-config");
         }
+      elsif (/^ipv6-non-linklocal/)
+	{
+	if ($parm_ipv6 =~ /%/) { $wantthis = 0; last; }
+	}
       else
         {
         tests_exit(-1, "Unknown line in \"scripts/$testdir/REQUIRES\": \"$_\"");