<testcase> <info> <keywords> FTP HTTP HTTP GET --proto --proto-redir followlocation </keywords> </info> # # Server-side <reply> <data> HTTP/1.1 301 OK swsclose Date: Thu, 09 Nov 2010 14:49:00 GMT Server: test-server/fake Content-Length: 0 Location: ftp://127.0.0.1:8992/1245 Connection: close </data> </reply> # # Client-side <client> <server> http ftp </server> <name> --proto deny must override --proto-redir allow </name> <command> --location --proto +all,-ftp --proto-redir -all,+ftp http://%HOSTIP:%HTTPPORT/1245 </command> # The data 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' || '%FTPPORT' ne '8992' );" </precheck> </client> # # Verify data after the test has been "shot" <verify> <strip> ^User-Agent:.* </strip> <protocol> GET /1245 HTTP/1.1 Host: %HOSTIP:%HTTPPORT Accept: */* </protocol> # 1 - Protocol ftp not supported or disabled in libcurl <errorcode> 1 </errorcode> </verify> </testcase>