• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
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