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
|
use strict;
use warnings;
use Test::More;
use HTTP::Headers::Fast;
plan skip_all => 'this test requires HTTP::Headers 5.822 or lator' unless eval "use HTTP::Headers 5.822; 1;";
plan tests => 2;
sub test($&) {
my ($title, $code) = @_;
is $code->('HTTP::Headers::Fast'), $code->('HTTP::Headers'), $title;
}
test 'header' => sub {
my $klass = shift;
my $h = $klass->new;
$h->header('foo' => 'bar');
$h->push_header('foo' => undef);
};
test "push_header's return value" => sub {
my $klass = shift;
my $h = $klass->new;
$h->header('foo' => 'bar');
$h->push_header('foo' => 'baz');
};
|
