1<testcase> 2<info> 3<keywords> 4HTTP 5HTTP GET 6followlocation 7IPv6 8</keywords> 9</info> 10 11# 12# Server-side 13<reply> 14<data> 15HTTP/1.1 302 OK swsclose 16Location: http://[::1%259999]:8994/moo/10560002 17Date: Thu, 31 Jul 2008 14:49:00 GMT 18Connection: close 19 20</data> 21<data2> 22HTTP/1.1 200 OK swsclose 23Date: Thu, 31 Jul 2008 14:49:00 GMT 24Connection: close 25 26body 27</data2> 28<datacheck> 29HTTP/1.1 302 OK swsclose 30Location: http://[::1%259999]:8994/moo/10560002 31Date: Thu, 31 Jul 2008 14:49:00 GMT 32Connection: close 33 34HTTP/1.1 200 OK swsclose 35Date: Thu, 31 Jul 2008 14:49:00 GMT 36Connection: close 37 38body 39</datacheck> 40</reply> 41 42# 43# Client-side 44<client> 45<features> 46ipv6 47</features> 48<server> 49http 50http-ipv6 51</server> 52 <name> 53HTTP follow redirect from IPv4 to IPv6 with scope 54 </name> 55 <command> 56http://%HOSTIP:%HTTPPORT/we/are/all/twits/1056 -L 57</command> 58# The data section doesn't do variable substitution, so we must assert this 59<precheck> 60perl -e "print 'Test requires default test server host and port' if ( '%HOST6IP' ne '[::1]' || '%HTTP6PORT' ne '8994' );" 61</precheck> 62</client> 63 64# 65# Verify data after the test has been "shot" 66<verify> 67<strip> 68^User-Agent:.* 69</strip> 70<protocol> 71GET /we/are/all/twits/1056 HTTP/1.1 72Host: %HOSTIP:%HTTPPORT 73Accept: */* 74 75GET /moo/10560002 HTTP/1.1 76Host: %HOST6IP:%HTTP6PORT 77Accept: */* 78 79</protocol> 80</verify> 81</testcase> 82