mirror of
https://github.com/curl/curl.git
synced 2026-07-24 19:17:20 +03:00
tidy-up: whitespace (more in Perl)
Follow-up to 8eab2b7086 #17896
Cherry-picked from #17877
Closes #17901
This commit is contained in:
parent
8eab2b7086
commit
ddcfd2d511
43 changed files with 84 additions and 98 deletions
|
|
@ -62,7 +62,7 @@ HTTP follow redirect from IPv4 to IPv6 with scope
|
|||
http://%HOSTIP:%HTTPPORT/we/are/all/twits/%TESTNUMBER -L
|
||||
</command>
|
||||
<precheck>
|
||||
%PERL -e "print 'Test is not supported on the Windows kernel' if ($^O eq 'MSWin32' || $^O eq 'msys' || $^O eq 'cygwin');"
|
||||
%PERL -e "print 'Test is not supported on the Windows kernel' if($^O eq 'MSWin32' || $^O eq 'msys' || $^O eq 'cygwin');"
|
||||
</precheck>
|
||||
</client>
|
||||
|
||||
|
|
|
|||
|
|
@ -35,7 +35,7 @@ HTTP GET with localhost --interface
|
|||
http://%HOSTIP:%HTTPPORT/%TESTNUMBER -4 --interface 127.0.0.1
|
||||
</command>
|
||||
<precheck>
|
||||
%PERL -e "print 'Test requires default test client host address' if ( '%CLIENTIP' ne '127.0.0.1' );"
|
||||
%PERL -e "print 'Test requires default test client host address' if('%CLIENTIP' ne '127.0.0.1');"
|
||||
</precheck>
|
||||
</client>
|
||||
|
||||
|
|
|
|||
|
|
@ -39,7 +39,7 @@ HTTP-IPv6 GET with ip6-localhost --interface
|
|||
-g "http://%HOST6IP:%HTTP6PORT/%TESTNUMBER" --interface ip6-localhost
|
||||
</command>
|
||||
<precheck>
|
||||
%PERL -e "if ('%CLIENT6IP' ne '[::1]') {print 'Test requires default test client host address';} else {exec '%RESOLVE --ipv6 ip6-localhost'; print 'Cannot run precheck resolve';}"
|
||||
%PERL -e "if('%CLIENT6IP' ne '[::1]') {print 'Test requires default test client host address';} else {exec '%RESOLVE --ipv6 ip6-localhost'; print 'Cannot run precheck resolve';}"
|
||||
</precheck>
|
||||
</client>
|
||||
|
||||
|
|
|
|||
|
|
@ -89,7 +89,7 @@ Accept: */*
|
|||
* Connection #3 to host server4.example.com left intact
|
||||
</file>
|
||||
<stripfile>
|
||||
$_ = '' if (($_ !~ /left intact/) && ($_ !~ /Closing connection/))
|
||||
$_ = '' if(($_ !~ /left intact/) && ($_ !~ /Closing connection/))
|
||||
</stripfile>
|
||||
</verify>
|
||||
</testcase>
|
||||
|
|
|
|||
|
|
@ -89,7 +89,7 @@ Accept: */*
|
|||
* Connection #3 to host server4.example.com left intact
|
||||
</file>
|
||||
<stripfile>
|
||||
$_ = '' if (($_ !~ /left intact/) && ($_ !~ /Closing connection/))
|
||||
$_ = '' if(($_ !~ /left intact/) && ($_ !~ /Closing connection/))
|
||||
</stripfile>
|
||||
</verify>
|
||||
</testcase>
|
||||
|
|
|
|||
|
|
@ -74,7 +74,7 @@ Accept: */*
|
|||
^Host:.*
|
||||
</strip>
|
||||
<stripfile>
|
||||
$_ = '' if (($_ !~ /left intact/) && ($_ !~ /Closing connection/))
|
||||
$_ = '' if(($_ !~ /left intact/) && ($_ !~ /Closing connection/))
|
||||
</stripfile>
|
||||
</verify>
|
||||
</testcase>
|
||||
|
|
|
|||
|
|
@ -62,7 +62,7 @@ Accept: */*
|
|||
== Info: Connection #1 to host %HOSTIP left intact
|
||||
</file>
|
||||
<stripfile>
|
||||
$_ = '' if (($_ !~ /left intact/) && ($_ !~ /(closing|shutting down) connection #\d+/))
|
||||
$_ = '' if(($_ !~ /left intact/) && ($_ !~ /(closing|shutting down) connection #\d+/))
|
||||
</stripfile>
|
||||
</verify>
|
||||
</testcase>
|
||||
|
|
|
|||
|
|
@ -27,7 +27,7 @@ file:// with Unix path resolution behavior for the case of extra slashes
|
|||
file:////%FILE_PWD/%LOGDIR/test%TESTNUMBER.txt
|
||||
</command>
|
||||
<precheck>
|
||||
%PERL -e "print 'Test requires a Unix system' if ( $^O eq 'MSWin32' || $^O eq 'cygwin' || $^O eq 'dos' || $^O eq 'msys');"
|
||||
%PERL -e "print 'Test requires a Unix system' if($^O eq 'MSWin32' || $^O eq 'cygwin' || $^O eq 'dos' || $^O eq 'msys');"
|
||||
</precheck>
|
||||
<file name="%LOGDIR/test%TESTNUMBER.txt">
|
||||
foo
|
||||
|
|
|
|||
|
|
@ -102,7 +102,7 @@ Via: 2 nghttpx
|
|||
* Connection #0 to host localhost left intact
|
||||
</file>
|
||||
<stripfile>
|
||||
$_ = '' if (($_ !~ /left intact/) && ($_ !~ /Closing connection/))
|
||||
$_ = '' if(($_ !~ /left intact/) && ($_ !~ /Closing connection/))
|
||||
</stripfile>
|
||||
</verify>
|
||||
</testcase>
|
||||
|
|
|
|||
|
|
@ -102,7 +102,7 @@ Via: 2 nghttpx
|
|||
* Connection #0 to host localhost left intact
|
||||
</file>
|
||||
<stripfile>
|
||||
$_ = '' if (($_ !~ /left intact/) && ($_ !~ /Closing connection/))
|
||||
$_ = '' if(($_ !~ /left intact/) && ($_ !~ /Closing connection/))
|
||||
</stripfile>
|
||||
</verify>
|
||||
</testcase>
|
||||
|
|
|
|||
|
|
@ -97,7 +97,7 @@ Via: 3 nghttpx
|
|||
== Info: Connection #0 to host localhost left intact
|
||||
</file>
|
||||
<stripfile>
|
||||
$_ = '' if (($_ !~ /left intact/) && ($_ !~ /Closing connection/))
|
||||
$_ = '' if(($_ !~ /left intact/) && ($_ !~ /Closing connection/))
|
||||
</stripfile>
|
||||
</verify>
|
||||
</testcase>
|
||||
|
|
|
|||
|
|
@ -79,7 +79,7 @@ Set-Cookie: cookie31=%hex[%7f-junk]hex%
|
|||
|
||||
</file>
|
||||
<precheck>
|
||||
%PERL -e 'if ("%HOSTIP" !~ /\.0\.0\.1$/) {print "Test only works for HOSTIPs ending with .0.0.1"; exit(1)}'
|
||||
%PERL -e 'if("%HOSTIP" !~ /\.0\.0\.1$/) {print "Test only works for HOSTIPs ending with .0.0.1"; exit(1)}'
|
||||
</precheck>
|
||||
<features>
|
||||
cookies
|
||||
|
|
|
|||
|
|
@ -38,7 +38,7 @@ MEM tool_cfgable.c
|
|||
MEM tool_cfgable.c
|
||||
</file>
|
||||
<stripfile>
|
||||
$_ = '' if ((($_ !~ /tool_paramhlp/) && ($_ !~ /tool_cfgable/)) || ($_ =~ /free\(\(nil\)\)/))
|
||||
$_ = '' if((($_ !~ /tool_paramhlp/) && ($_ !~ /tool_cfgable/)) || ($_ =~ /free\(\(nil\)\)/))
|
||||
s/:\d+.*//
|
||||
s:^(MEM )(.*/)(.*):$1$3:
|
||||
</stripfile>
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue