use strict;
use warnings;
use Test::More;
use Plack::App::Proxy;
use HTTP::Headers;
my $proxy = Plack::App::Proxy->new;
my $h = HTTP::Headers->new(
'Content-Type' => 'text/html',
'Set-Cookie' => 'k1=v1; path=/;',
'Set-Cookie' => 'k2=v2; path=/;',
'Transfer-Encoding' => 'cunked',
'Connection' => 'X-Hoge , Keep-Alive',
'X-Hoge' => 'hoge',
'Keep-Alive' => 'hoge=10',
);
$proxy->filter_headers( $h );
is_deeply [ $h->header( 'Content-Type' ) ], [ 'text/html' ];
is_deeply [ $h->header( 'Set-Cookie' ) ], [
'k1=v1; path=/;', 'k2=v2; path=/;',
];
is_deeply [ $h->header( 'Transfer-Encoding' ) ], [];
is_deeply [ $h->header( 'Connection' ) ], [];
is_deeply [ $h->header( 'X-Hoge' ) ], [];
is_deeply [ $h->header( 'Keep-Alive' ) ], [];
done_testing;