[catagits/HTTP-Body.git] / test.pl

#!/usr/bin/perl

use strict;
use warnings;
use lib './lib';

use Data::Dumper;
use HTTP::Body;
use IO::File;
use YAML qw[LoadFile];

my $test = shift(@ARGV) || 1;

my $headers = LoadFile( sprintf( "t/data/multipart/%.3d-headers.yml", $test ) );
my $content = IO::File->new( sprintf( "t/data/multipart/%.3d-content.dat", $test ), O_RDONLY );
my $parser  = HTTP::Body->new( $headers->{'Content-Type'}, $headers->{'Content-Length'} );

warn ref($parser);

binmode $content;

while ( $content->read( my $buffer, 1024 ) ) {
    last if $parser->add($buffer) == 0;
}

warn "length   : $parser->{length}\n";
warn "state    : $parser->{state}\n";

warn Dumper( $parser->param );
warn Dumper( $parser->upload );
Commit	Line	Data
6a0eb7a7	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5	use lib './lib';
	6
	7	use Data::Dumper;
32b29b79	8	use HTTP::Body;
6a0eb7a7	9	use IO::File;
	10	use YAML qw[LoadFile];
	11
	12	my $test = shift(@ARGV) \|\| 1;
	13
32b29b79	14	my $headers = LoadFile( sprintf( "t/data/multipart/%.3d-headers.yml", $test ) );
	15	my $content = IO::File->new( sprintf( "t/data/multipart/%.3d-content.dat", $test ), O_RDONLY );
	16	my $parser = HTTP::Body->new( $headers->{'Content-Type'}, $headers->{'Content-Length'} );
	17
	18	warn ref($parser);
6a0eb7a7	19
	20	binmode $content;
	21
	22	while ( $content->read( my $buffer, 1024 ) ) {
	23	last if $parser->add($buffer) == 0;
	24	}
	25
32b29b79	26	warn "length : $parser->{length}\n";
32b29b79	27	warn "state : $parser->{state}\n";
6a0eb7a7	28
	29	warn Dumper( $parser->param );
	30	warn Dumper( $parser->upload );