1<testcase> 2<info> 3<keywords> 4HTTP 5HTTP GET 6cookies 7</keywords> 8</info> 9# Server-side 10<reply> 11<data> 12HTTP/1.1 200 OK swsclose 13Date: Thu, 09 Nov 2010 14:49:00 GMT 14Server: test-server/fake 15 16</data> 17</reply> 18 19# Client-side 20<client> 21<server> 22http 23</server> 24 <name> 25HTTP with cookie parsing from header file 26 </name> 27 <command> 28http://%HOSTIP:%HTTPPORT/we/want/8 -b log/heads8.txt 29</command> 30 31# We create this file before the command is invoked! 32<file name="log/heads8.txt"> 33HTTP/1.1 200 OK 34Date: Thu, 09 Nov 2010 14:49:00 GMT 35Server: test-server/fake 36Content-Type: text/html 37Funny-head: yesyes 38Set-Cookie: foobar=name; domain=%HOSTIP; path=/; 39Set-Cookie: mismatch=this; domain=%HOSTIP; path="/silly/"; 40Set-Cookie: partmatch=present; domain=.0.0.1; path=/w; 41Set-Cookie: duplicate=test; domain=.0.0.1; domain=.0.0.1; path=/donkey; 42Set-Cookie: cookie=yes; path=/we; 43Set-Cookie: cookie=perhaps; path=/we/want; 44Set-Cookie: nocookie=yes; path=/WE; 45Set-Cookie: blexp=yesyes; domain=%HOSTIP; domain=%HOSTIP; expiry=totally bad; 46Set-Cookie: partialip=nono; domain=.0.0.1; 47 48</file> 49<precheck> 50perl -e 'if ("%HOSTIP" !~ /\.0\.0\.1$/) {print "Test only works for HOSTIPs ending with .0.0.1"; exit(1)}' 51</precheck> 52</client> 53 54# Verify data after the test has been "shot" 55<verify> 56<strip> 57^User-Agent:.* 58</strip> 59<protocol> 60GET /we/want/8 HTTP/1.1 61Host: %HOSTIP:%HTTPPORT 62Accept: */* 63Cookie: cookie=perhaps; cookie=yes; foobar=name; blexp=yesyes 64 65</protocol> 66</verify> 67</testcase> 68