mirror of
https://github.com/curl/curl.git
synced 2024-12-15 06:40:09 +08:00
68c358619f
- add variable for the null device filename and use that in Perl code. - initialize this variable with `NUL` on native Windows. - add `%DEV_NULL` variable and use it in tests. Fixes `The system cannot find the path specified.` messages seen when running `runtests.pl` with native Windows Perl. Also adjust code to not break mcedit syntax highlighting. Cherry-picked from #14949 Closes #15098
79 lines
1.1 KiB
Plaintext
79 lines
1.1 KiB
Plaintext
<testcase>
|
|
<info>
|
|
<keywords>
|
|
HTTP
|
|
HTTP GET
|
|
followlocation
|
|
chunked Transfer-Encoding
|
|
--write-out
|
|
</keywords>
|
|
</info>
|
|
|
|
#
|
|
# Server-side
|
|
<reply>
|
|
<data nocheck="yes">
|
|
HTTP/1.1 302 OK
|
|
Date: Sun, 13 Sep 2020 15:00 GMT
|
|
Content-Length: 8
|
|
Connection: close
|
|
Content-Type: text/plain
|
|
Location: ./%TESTNUMBER0001
|
|
|
|
monster
|
|
</data>
|
|
<data1 nocheck="yes">
|
|
HTTP/1.1 200 OK
|
|
Date: Sun, 13 Sep 2020 15:00 GMT
|
|
Transfer-Encoding: chunked
|
|
Connection: close
|
|
Content-Type: text/plain; charset=us-ascii
|
|
|
|
0007
|
|
bigger
|
|
0008
|
|
monster
|
|
|
|
0
|
|
|
|
</data1>
|
|
|
|
</reply>
|
|
|
|
#
|
|
# Client-side
|
|
<client>
|
|
<server>
|
|
http
|
|
</server>
|
|
<name>
|
|
HTTP GET -w num_headers with redirected fetch (2 connects)
|
|
</name>
|
|
<command>
|
|
http://%HOSTIP:%HTTPPORT/%TESTNUMBER -w "%{num_headers}\n" -L -o%DEV_NULL
|
|
</command>
|
|
</client>
|
|
|
|
#
|
|
# Verify data after the test has been "shot"
|
|
<verify>
|
|
<protocol>
|
|
GET /%TESTNUMBER HTTP/1.1
|
|
Host: %HOSTIP:%HTTPPORT
|
|
User-Agent: curl/%VERSION
|
|
Accept: */*
|
|
|
|
GET /%TESTNUMBER0001 HTTP/1.1
|
|
Host: %HOSTIP:%HTTPPORT
|
|
User-Agent: curl/%VERSION
|
|
Accept: */*
|
|
|
|
</protocol>
|
|
|
|
<stdout mode="text">
|
|
4
|
|
</stdout>
|
|
|
|
</verify>
|
|
</testcase>
|