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