blob: 71cd733dec3d1d2f6e95dabc1a2a55ee35c92f02 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
use strict;
use warnings;
use Test::More 0.88;
use HTTP::Request::Common;
# I'd use Test::Warnings here, but let's respect our downstream consumers and
# not force that prereq on them
my @warnings;
$SIG{__WARN__} = sub { push @warnings, grep { length } @_ };
my $request = HTTP::Request::Common::request_type_with_data(
'POST' => 'https://localhost/',
'content_type' => 'multipart/form-data; boundary=----1234',
'content' => [ a => 1, b => undef ],
);
isa_ok($request, 'HTTP::Request');
is(scalar(@warnings), 0, 'no warnings')
or diag('got warnings: ', explain(\@warnings));
done_testing;
|