1 <testcase> 2 <info> 3 <keywords> 4 HTTP 5 HTTP PUT 6 followlocation 7 FTP 8 EPSV 9 STOR 10 </keywords> 11 </info> 12 13 # 14 # Server-side 15 <reply> 16 <data> 17 HTTP/1.1 307 OK 18 Date: Thu, 09 Nov 2010 14:49:00 GMT 19 Server: test-server/fake swsclose 20 Content-Type: text/html 21 Location: ftp://127.0.0.1:8992/1055 22 Content-Length: 0 23 Connection: close 24 25 </data> 26 </reply> 27 28 # 29 # Client-side 30 <client> 31 <server> 32 http 33 ftp 34 </server> 35 <name> 36 HTTP PUT Location: redirect to FTP URL 37 </name> 38 <command> 39 http://%HOSTIP:%HTTPPORT/1055 -L -T log/test1055.txt 40 </command> 41 # The data section doesn't do variable substitution, so we must assert this 42 <precheck> 43 perl -e "print 'Test requires default test server host and port' if ( '%HOSTIP' ne '127.0.0.1' || '%FTPPORT' ne '8992' );" 44 </precheck> 45 <file name="log/test1055.txt"> 46 Weird 47 file 48 to 49 upload 50 for 51 testing 52 the 53 PUT 54 feature 55 </file> 56 </client> 57 58 # 59 # Verify data after the test has been "shot" 60 <verify> 61 <strip> 62 ^User-Agent:.* 63 </strip> 64 <protocol> 65 PUT /1055 HTTP/1.1 66 Host: %HOSTIP:%HTTPPORT 67 Accept: */* 68 Content-Length: 78 69 Expect: 100-continue 70 71 Weird 72 file 73 to 74 upload 75 for 76 testing 77 the 78 PUT 79 feature 80 USER anonymous 81 PASS ftp (a] example.com 82 PWD 83 EPSV 84 TYPE I 85 STOR 1055 86 QUIT 87 </protocol> 88 <upload> 89 Weird 90 file 91 to 92 upload 93 for 94 testing 95 the 96 PUT 97 feature 98 </upload> 99 </verify> 100 </testcase> 101
