← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/libwww-perl/oneiric

« back to all changes in this revision

Viewing changes to t/local/http.t

  • Committer: Bazaar Package Importer
  • Author(s): Damyan Ivanov, Jonathan Yu, Damyan Ivanov
  • Date: 2009-11-23 22:34:41 UTC
  • mfrom: (1.4.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20091123223441-j4h7h2fidei8y225
Tags: 5.834-1
[ Jonathan Yu ]
* New upstream release

[ Damyan Ivanov ]
* update dependencies on compression libraries
  + drop libcompress-zlib-perl and libcompress-bzip2-perl (no longer used
    upstream)
  + merge perl (>= 5.10.0) | libio-compress-perl and perl (>= 5.10.1) |
    libio-compress-perl

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/local/http.t
48
48
}
49
49
 
50
50
use Test;
51
 
plan tests => 52;
 
51
plan tests => 54;
52
52
 
53
53
my $greeting = <DAEMON>;
54
54
$greeting =~ /(<[^>]+>)/;
327
327
ok($_, qr/^Content-Type:\s*application\/x-www-form-urlencoded$/mi);
328
328
ok($_, qr/^foo=bar&bar=test$/m);
329
329
 
 
330
$req = HTTP::Request->new(POST => url("/echo/foo", $base));
 
331
$req->content_type("multipart/form-data");
 
332
$req->add_part(HTTP::Message->new(["Content-Type" => "text/plain"], "Hi\n"));
 
333
$req->add_part(HTTP::Message->new(["Content-Type" => "text/plain"], "there\n"));
 
334
$res = $ua->request($req);
 
335
#print $res->as_string;
 
336
ok($res->is_success);
 
337
ok($res->content =~ /^Content-Type: multipart\/form-data; boundary=/m);
 
338
 
330
339
#----------------------------------------------------------------
331
340
print "Check partial content response...\n";
332
341
sub httpd_get_partial