Commit | Line | Data |
4e0afe7d |
1 | #!perl |
2 | |
b81054c2 |
3 | use Test::More tests => 12; |
4e0afe7d |
4 | |
5 | use strict; |
6 | use warnings; |
7 | |
8 | use IO::File; |
9 | use HTTP::Request; |
10 | use HTTP::Request::AsCGI; |
11 | |
12 | my $response; |
13 | |
14 | { |
15 | my $r = HTTP::Request->new( GET => 'http://www.host.com/' ); |
16 | my $c = HTTP::Request::AsCGI->new($r); |
17 | |
18 | $c->setup; |
19 | |
20 | $response = $c->restore->response; |
21 | } |
22 | |
23 | isa_ok( $response, 'HTTP::Response' ); |
24 | is( $response->code, 500, 'Response Code' ); |
25 | is( $response->message, 'Internal Server Error', 'Response Message' ); |
26 | is( $response->protocol, 'HTTP/1.1', 'Response Protocol' ); |
27 | is( $response->content_type, 'text/html', 'Response Content-Type' ); |
28 | ok( length($response->content) > 0, 'Response Content' ); |
b81054c2 |
29 | |
30 | { |
31 | my $r = HTTP::Request->new( GET => 'http://www.host.com/' ); |
32 | my $c = HTTP::Request::AsCGI->new($r); |
33 | |
34 | $c->setup; |
35 | |
36 | print "Content-Type: text/plain\n"; |
37 | print "Status: 500 Borked\n"; |
38 | print "\n"; |
39 | print "Borked!"; |
40 | |
41 | $response = $c->restore->response; |
42 | } |
43 | |
44 | isa_ok( $response, 'HTTP::Response' ); |
45 | is( $response->code, 500, 'Response Code' ); |
46 | is( $response->message, 'Borked', 'Response Message' ); |
47 | is( $response->protocol, 'HTTP/1.1', 'Response Protocol' ); |
48 | is( $response->content_type, 'text/plain', 'Response Content-Type' ); |
49 | is( $response->content, 'Borked!', 'Response Content' ); |