Show
Ignore:
Timestamp:
02/12/09 19:41:15 (4 years ago)
Author:
tokuhirom
Message:

added test case for post body handling with I::Test.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/HTTP-Engine/trunk/t/020_interface/test.t

    r25619 r29959  
    114114OK! 
    115115 
     116=== $req->post_body 
     117--- preprocess 
     118$req->method('POST'); 
     119$req->content("foobar=baz"); 
     120$req->content_length( bytes::length($req->content) ); 
     121$req->content_type('application/x-www-form-urlencoded'); 
     122--- code 
     123$res->header('X-Req-Foobar' => $req->body_params->{foobar}); 
     124--- response 
     125Content-Length: 3 
     126Content-Type: text/html 
     127Status: 200 
     128X-Req-Foobar: baz 
     129X-Req-Test: ping 
     130 
     131OK! 
     132