mirror of
https://github.com/moparisthebest/curl
synced 2024-11-10 11:35:07 -05:00
61 lines
1.2 KiB
Plaintext
61 lines
1.2 KiB
Plaintext
<testcase>
|
|
<info>
|
|
<keywords>
|
|
HTTP
|
|
HTTP GET
|
|
redirect_url
|
|
followlocation
|
|
</keywords>
|
|
</info>
|
|
# Server-side
|
|
<reply>
|
|
<data nocheck="1">
|
|
HTTP/1.1 301 This is a weirdo text message swsclose
|
|
Location: data/10290002.txt?coolsite=yes
|
|
Content-Length: 62
|
|
Connection: close
|
|
|
|
This server reply is for testing a simple Location: following
|
|
</data>
|
|
</reply>
|
|
|
|
# Client-side
|
|
<client>
|
|
<server>
|
|
http
|
|
</server>
|
|
<name>
|
|
HTTP Location: and 'redirect_url' check
|
|
</name>
|
|
<command>
|
|
http://%HOSTIP:%HTTPPORT/we/want/our/1029 -w '%{redirect_url}\n'
|
|
</command>
|
|
# The stdout section doesn't do variable substitution, so we must assert this
|
|
<precheck>
|
|
perl -e "print 'Test requires default test server host and port' if ( '%HOSTIP' ne '127.0.0.1' || '%HTTPPORT' ne '8990' );"
|
|
</precheck>
|
|
</client>
|
|
|
|
# Verify data after the test has been "shot"
|
|
<verify>
|
|
<strip>
|
|
^User-Agent:.*
|
|
</strip>
|
|
<protocol>
|
|
GET /we/want/our/1029 HTTP/1.1
|
|
Host: %HOSTIP:%HTTPPORT
|
|
Accept: */*
|
|
|
|
</protocol>
|
|
<stdout mode="text">
|
|
HTTP/1.1 301 This is a weirdo text message swsclose
|
|
Location: data/10290002.txt?coolsite=yes
|
|
Content-Length: 62
|
|
Connection: close
|
|
|
|
This server reply is for testing a simple Location: following
|
|
http://127.0.0.1:8990/we/want/our/data/10290002.txt?coolsite=yes
|
|
</stdout>
|
|
</verify>
|
|
</testcase>
|