1<testcase> 2<info> 3<keywords> 4FTP 5HTTP 6HTTP GET 7--proto 8--proto-redir 9followlocation 10</keywords> 11</info> 12 13# 14# Server-side 15<reply> 16<data> 17HTTP/1.1 301 OK swsclose 18Date: Thu, 09 Nov 2010 14:49:00 GMT 19Server: test-server/fake 20Content-Length: 0 21Location: ftp://127.0.0.1:8992/1245 22Connection: close 23 24</data> 25</reply> 26 27# 28# Client-side 29<client> 30<server> 31http 32ftp 33</server> 34<name> 35--proto deny must override --proto-redir allow 36</name> 37<command> 38--location --proto +all,-ftp --proto-redir -all,+ftp http://%HOSTIP:%HTTPPORT/1245 39</command> 40# The data section doesn't do variable substitution, so we must assert this 41<precheck> 42perl -e "print 'Test requires default test server host and port' if ( '%HOSTIP' ne '127.0.0.1' || '%FTPPORT' ne '8992' );" 43</precheck> 44</client> 45 46# 47# Verify data after the test has been "shot" 48<verify> 49<strip> 50^User-Agent:.* 51</strip> 52<protocol> 53GET /1245 HTTP/1.1 54Host: %HOSTIP:%HTTPPORT 55Accept: */* 56 57</protocol> 58# 1 - Protocol ftp not supported or disabled in libcurl 59<errorcode> 601 61</errorcode> 62</verify> 63</testcase> 64