1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
use strict;
use Test::More;
use_ok $_ for qw(
HTTP::Entity::Parser
HTTP::Entity::Parser::JSON
HTTP::Entity::Parser::MultiPart
HTTP::Entity::Parser::OctetStream
HTTP::Entity::Parser::UrlEncoded
);
my $parser = HTTP::Entity::Parser->new(buffer_length => 100);
ok($parser);
is($parser->[1],100);
{
my $env = {
CONTENT_TYPE => 'multipart/form-data',
};
my $parser = HTTP::Entity::Parser->new(buffer_length => 100);
my ( $params, $uploads) = $parser->parse($env);
is_deeply($params,[]);
is_deeply($uploads,[]);
}
{
my $env = {
CONTENT_TYPE => 'multipart/form-data',
'psgi.input' => undef,
};
my $parser = HTTP::Entity::Parser->new(buffer_length => 100);
my ( $params, $uploads) = $parser->parse($env);
is_deeply($params,[]);
is_deeply($uploads,[]);
}
done_testing;
|
