Commit 2dec2c5610f92477945d1d34822a9dd8f4c0ce5f - libfurl-perl

failing test case for Furl#response tokuhirom 11 years ago

1 changed file(s) with 15 addition(s) and 2 deletion(s). Raw diff Collapse all Expand all

+15

-2

t/300_high/06_keep_request.t less more

14	14
15	15	my $furl = Furl->new(keep_request => 1);
16	16
17		# GET
	17	# request(GET)
18	18	{
19	19	my $res = $furl->request(url => "http://127.0.0.1:$port/foo", method => "GET");
20	20	is $res->code, 200, "request()";

26	26	is $req->method => 'GET';
27	27	}
28	28
29		# POST
	29	# request(POST)
30	30	{
31	31	my $res = $furl->request(url => "http://127.0.0.1:$port/foo", method => "POST", content => 'GAH');
	32	is $res->code, 200, "request()";
	33	can_ok $res => 'request';
	34
	35	my $req = $res->request;
	36	isa_ok $req => 'Furl::Request';
	37	is $req->uri => "http://127.0.0.1:$port/foo";
	38	is $req->method => 'POST';
	39	is $req->content => 'GAH';
	40	}
	41
	42	# ->post
	43	{
	44	my $res = $furl->post("http://127.0.0.1:$port/foo", [], 'GAH');
32	45	is $res->code, 200, "request()";
33	46	can_ok $res => 'request';
34	47