This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Move file handling to non-exceptional order
[perl5.git] / cpan / HTTP-Tiny / corpus / redirect-04.txt
1 new_args
2   max_redirect: 2
3 url
4   http://example.com/index.html
5 expected
6   abcdefghijklmnopqrstuvwxyz1234567890abcdef
7 expected_url
8   http://example.com/index3.html
9 ----------
10 GET /index.html HTTP/1.1
11 Host: example.com
12 Connection: close
13 User-Agent: HTTP-Tiny/VERSION
14
15 ----------
16 HTTP/1.1 302 Found
17 Date: Thu, 03 Feb 1994 00:00:00 GMT
18 Content-Type: text/html
19 Content-Length: 53
20 Location: http://example.com/index2.html
21
22 <a href="http://example.com/index2.html">redirect</a>
23
24 ----------
25 GET /index2.html HTTP/1.1
26 Host: example.com
27 Connection: close
28 User-Agent: HTTP-Tiny/VERSION
29
30 ----------
31 HTTP/1.1 302 Found
32 Date: Thu, 03 Feb 1994 00:00:00 GMT
33 Content-Type: text/html
34 Content-Length: 53
35 Location: http://example.com/index3.html
36
37 <a href="http://example.com/index3.html">redirect</a>
38
39 ----------
40 GET /index3.html HTTP/1.1
41 Host: example.com
42 Connection: close
43 User-Agent: HTTP-Tiny/VERSION
44
45 ----------
46 HTTP/1.1 200 OK
47 Date: Thu, 03 Feb 1994 00:00:00 GMT
48 Content-Type: text/plain
49 Content-Length: 42
50
51 abcdefghijklmnopqrstuvwxyz1234567890abcdef
52