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-05.txt
1 url
2   http://example.com/index.html
3 expected
4   abcdefghijklmnopqrstuvwxyz1234567890abcdef
5 expected_url
6   http://example.com/index3.html
7 ----------
8 GET /index.html HTTP/1.1
9 Host: example.com
10 Connection: close
11 User-Agent: HTTP-Tiny/VERSION
12
13 ----------
14 HTTP/1.1 302 Found
15 Date: Thu, 03 Feb 1994 00:00:00 GMT
16 Content-Type: text/html
17 Content-Length: 53
18 Location: http://example.com/index2.html
19
20 <a href="http://example.com/index2.html">redirect</a>
21
22 ----------
23 GET /index2.html HTTP/1.1
24 Host: example.com
25 Connection: close
26 User-Agent: HTTP-Tiny/VERSION
27
28 ----------
29 HTTP/1.1 301 Found
30 Date: Thu, 03 Feb 1994 00:00:00 GMT
31 Content-Type: text/html
32 Content-Length: 53
33 Location: /index3.html
34
35 <a href="http://example.com/index3.html">redirect</a>
36
37 ----------
38 GET /index3.html HTTP/1.1
39 Host: example.com
40 Connection: close
41 User-Agent: HTTP-Tiny/VERSION
42
43 ----------
44 HTTP/1.1 200 OK
45 Date: Thu, 03 Feb 1994 00:00:00 GMT
46 Content-Type: text/plain
47 Content-Length: 42
48
49 abcdefghijklmnopqrstuvwxyz1234567890abcdef
50