tests/data/test1245

   1 <testcase>
   2 <info>
   3 <keywords>
   4 FTP
   5 HTTP
   6 HTTP GET
   7 --proto
   8 --proto-redir
   9 followlocation
  10 </keywords>
  11 </info>
  12
  13 #
  14 # Server-side
  15 <reply>
  16 <data>
  17 HTTP/1.1 301 OK swsclose\r
  18 Date: Thu, 09 Nov 2010 14:49:00 GMT\r
  19 Server: test-server/fake\r
  20 Content-Length: 0\r
  21 Location: ftp://127.0.0.1:8992/1245\r
  22 Connection: close\r
  23 \r
  24 </data>
  25 </reply>
  26
  27 #
  28 # Client-side
  29 <client>
  30 <server>
  31 ftp
  32 http
  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>
  42 perl -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>
  53 GET /1245 HTTP/1.1\r
  54 Host: %HOSTIP:%HTTPPORT\r
  55 Accept: */*\r
  56 \r
  57 </protocol>
  58 # 1 - Protocol ftp not supported or disabled in libcurl
  59 <errorcode>
  60 1
  61 </errorcode>
  62 </verify>
  63 </testcase>