tests/data/test8

   1 <testcase>
   2 <info>
   3 <keywords>
   4 HTTP
   5 HTTP GET
   6 cookies
   7 </keywords>
   8 </info>
   9 # Server-side
  10 <reply>
  11 <data>
  12 HTTP/1.1 200 OK swsclose
  13 Date: Thu, 09 Nov 2010 14:49:00 GMT
  14 Server: test-server/fake
  15
  16 </data>
  17 </reply>
  18
  19 # Client-side
  20 <client>
  21 <server>
  22 http
  23 </server>
  24  <name>
  25 HTTP with cookie parsing from header file
  26  </name>
  27  <command>
  28 http://%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">
  33 HTTP/1.1 200 OK
  34 Date: Thu, 09 Nov 2010 14:49:00 GMT
  35 Server: test-server/fake
  36 Content-Type: text/html
  37 Funny-head: yesyes
  38 Set-Cookie: foobar=name; domain=%HOSTIP; path=/;
  39 Set-Cookie: mismatch=this; domain=%HOSTIP; path="/silly/";
  40 Set-Cookie: partmatch=present; domain=.0.0.1; path=/w;
  41 Set-Cookie: duplicate=test; domain=.0.0.1; domain=.0.0.1; path=/donkey;
  42 Set-Cookie: cookie=yes; path=/we;
  43 Set-Cookie: cookie=perhaps; path=/we/want;
  44 Set-Cookie: nocookie=yes; path=/WE;
  45 Set-Cookie: blexp=yesyes; domain=.0.0.1; domain=.0.0.1; expiry=totally bad;
  46
  47 </file>
  48 <precheck>
  49 perl -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>
  59 GET /we/want/8 HTTP/1.1\r
  60 Host: %HOSTIP:%HTTPPORT\r
  61 Accept: */*\r
  62 Cookie: cookie=perhaps; cookie=yes; foobar=name; blexp=yesyes\r
  63 \r
  64 </protocol>
  65 </verify>
  66 </testcase>