https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| a3ab329f DG |
1 | new_args |
| 2 | max_redirect: 1 | |
| 3 | url | |
| 4 | http://example.com/index.html | |
| 5 | expected | |
| 6 | <a href="http://example.com/index3.html">redirect</a> | |
| fcfb9f49 CBW |
7 | expected_url |
| 8 | http://example.com/index2.html | |
| a3ab329f DG |
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 |