+<testcase>
+<info>
+<keywords>
+HTTP
+HTTP GET
+cookies
+</keywords>
+</info>
# Server-side
<reply>
<data>
HTTP with cookie parsing from header file
</name>
<command>
-http://%HOSTIP:%HOSTPORT/we/want/8 -b log/heads8.txt
+http://%HOSTIP:%HTTPPORT/we/want/8 -b log/heads8.txt
</command>
# We create this file before the command is invoked!
Server: test-server/fake
Content-Type: text/html
Funny-head: yesyes
-Set-Cookie: foobar=name; domain=127.0.0.1; path=/;
-Set-Cookie: mismatch=this; domain=127.0.0.1; path="/silly/";
-Set-Cookie: partmatch=present; domain=.0.0.1; path=/;
+Set-Cookie: foobar=name; domain=%HOSTIP; path=/;
+Set-Cookie: mismatch=this; domain=%HOSTIP; path="/silly/";
+Set-Cookie: partmatch=present; domain=.0.0.1; path=/w;
+Set-Cookie: duplicate=test; domain=.0.0.1; domain=.0.0.1; path=/donkey;
+Set-Cookie: cookie=yes; path=/we;
+Set-Cookie: cookie=perhaps; path=/we/want;
+Set-Cookie: nocookie=yes; path=/WE;
+Set-Cookie: blexp=yesyes; domain=%HOSTIP; domain=%HOSTIP; expiry=totally bad;
+Set-Cookie: partialip=nono; domain=.0.0.1;
</file>
-</test>
+<precheck>
+perl -e 'if ("%HOSTIP" !~ /\.0\.0\.1$/) {print "Test only works for HOSTIPs ending with .0.0.1"; exit(1)}'
+</precheck>
+</client>
# Verify data after the test has been "shot"
<verify>
</strip>
<protocol>
GET /we/want/8 HTTP/1.1\r
-Host: 127.0.0.1:8999\r
-Pragma: no-cache\r
-Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*\r
-Cookie: partmatch=present; foobar=name\r
+Host: %HOSTIP:%HTTPPORT\r
+Accept: */*\r
+Cookie: cookie=perhaps; cookie=yes; foobar=name; blexp=yesyes\r
\r
</protocol>
</verify>
+</testcase>