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
|
use strict;
use Test::More;
use Plack::Util;
{
my $headers = [ Foo => 'bar' ];
my $h = Plack::Util::headers($headers);
$h->set(Bar => 'baz');
is_deeply $headers, [ Foo => 'bar', Bar => 'baz' ];
is_deeply $h->headers, [ Foo => 'bar', Bar => 'baz' ];
is $h->get('Foo'), 'bar';
$h->push('Foo' => 'xxx');
is $h->get('Foo'), 'bar';
my @v = $h->get('Foo');
is_deeply \@v, [ 'bar', 'xxx' ];
ok $h->exists('Bar');
$h->remove('Bar');
ok ! $h->exists('Bar');
is_deeply $headers, $h->headers;
}
done_testing;
|
