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: name with space=is weird but; path=/we/want; 45Set-Cookie: trailingspace = removed; path=/we/want; 46Set-Cookie: nocookie=yes; path=/WE; 47Set-Cookie: blexp=yesyes; domain=%HOSTIP; domain=%HOSTIP; expiry=totally bad; 48Set-Cookie: partialip=nono; domain=.0.0.1; 49 50</file> 51<precheck> 52perl -e 'if ("%HOSTIP" !~ /\.0\.0\.1$/) {print "Test only works for HOSTIPs ending with .0.0.1"; exit(1)}' 53</precheck> 54</client> 55 56# Verify data after the test has been "shot" 57<verify> 58<strip> 59^User-Agent:.* 60</strip> 61<protocol> 62GET /we/want/8 HTTP/1.1 63Host: %HOSTIP:%HTTPPORT 64Accept: */* 65Cookie: name with space=is weird but; trailingspace=removed; cookie=perhaps; cookie=yes; foobar=name; blexp=yesyes 66 67</protocol> 68</verify> 69</testcase> 70