|
Packit |
3f4df8 |
#!perl
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
use strict;
|
|
Packit |
3f4df8 |
use warnings;
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
use Test::More qw[no_plan];
|
|
Packit |
3f4df8 |
use lib 't';
|
|
Packit |
3f4df8 |
use Util qw[tmpfile rewind $CRLF $LF];
|
|
Packit |
3f4df8 |
use HTTP::Tiny;
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
{
|
|
Packit |
3f4df8 |
no warnings 'redefine';
|
|
Packit |
3f4df8 |
sub HTTP::Tiny::Handle::can_read { 1 };
|
|
Packit |
3f4df8 |
sub HTTP::Tiny::Handle::can_write { 1 };
|
|
Packit |
3f4df8 |
}
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
{
|
|
Packit |
3f4df8 |
my $header = join $CRLF, 'Foo: Foo', 'Foo: Baz', 'Bar: Bar', '', '';
|
|
Packit |
3f4df8 |
my $fh = tmpfile($header);
|
|
Packit |
3f4df8 |
my $exp = { foo => ['Foo', 'Baz'], bar => 'Bar' };
|
|
Packit |
3f4df8 |
my $handle = HTTP::Tiny::Handle->new(fh => $fh);
|
|
Packit |
3f4df8 |
my $got = $handle->read_header_lines;
|
|
Packit |
3f4df8 |
is_deeply($got, $exp, "->read_header_lines() CRLF");
|
|
Packit |
3f4df8 |
}
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
{
|
|
Packit |
3f4df8 |
my $header = join $LF, 'Foo: Foo', 'Foo: Baz', 'Bar: Bar', '', '';
|
|
Packit |
3f4df8 |
my $fh = tmpfile($header);
|
|
Packit |
3f4df8 |
my $exp = { foo => ['Foo', 'Baz'], bar => 'Bar' };
|
|
Packit |
3f4df8 |
my $handle = HTTP::Tiny::Handle->new(fh => $fh);
|
|
Packit |
3f4df8 |
my $got = $handle->read_header_lines;
|
|
Packit |
3f4df8 |
is_deeply($got, $exp, "->read_header_lines() LF");
|
|
Packit |
3f4df8 |
}
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
{
|
|
Packit |
3f4df8 |
my $header = "Foo: $CRLF\x09Bar$CRLF\x09$CRLF\x09Baz$CRLF$CRLF";
|
|
Packit |
3f4df8 |
my $fh = tmpfile($header);
|
|
Packit |
3f4df8 |
my $exp = { foo => 'Bar Baz' };
|
|
Packit |
3f4df8 |
my $handle = HTTP::Tiny::Handle->new(fh => $fh);
|
|
Packit |
3f4df8 |
my $got = $handle->read_header_lines;
|
|
Packit |
3f4df8 |
is_deeply($got, $exp, "->read_header_lines() insane continuations");
|
|
Packit |
3f4df8 |
}
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
{
|
|
Packit |
3f4df8 |
my $fh = tmpfile();
|
|
Packit |
3f4df8 |
my $handle = HTTP::Tiny::Handle->new(fh => $fh);
|
|
Packit |
3f4df8 |
my $headers = { foo => ['Foo', 'Baz'], bar => 'Bar' };
|
|
Packit |
3f4df8 |
$handle->write_header_lines($headers);
|
|
Packit |
3f4df8 |
rewind($fh);
|
|
Packit |
3f4df8 |
is_deeply($handle->read_header_lines, $headers, "roundtrip header lines");
|
|
Packit |
3f4df8 |
}
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
{
|
|
Packit |
3f4df8 |
my $fh = tmpfile();
|
|
Packit |
3f4df8 |
my $handle = HTTP::Tiny::Handle->new(fh => $fh);
|
|
Packit |
3f4df8 |
my $headers = { foo => ['Foo', 'Baz'], bar => 'Bar', baz => '' };
|
|
Packit |
3f4df8 |
$handle->write_header_lines($headers);
|
|
Packit |
3f4df8 |
rewind($fh);
|
|
Packit |
3f4df8 |
is_deeply($handle->read_header_lines, $headers, "roundtrip header lines");
|
|
Packit |
3f4df8 |
}
|
|
Packit |
3f4df8 |
|