|
Packit |
a09cf7 |
use strict;
|
|
Packit |
a09cf7 |
use warnings;
|
|
Packit |
a09cf7 |
|
|
Packit |
a09cf7 |
use Test::More;
|
|
Packit |
a09cf7 |
|
|
Packit |
a09cf7 |
use HTTP::Headers::Util qw(split_header_words join_header_words);
|
|
Packit |
a09cf7 |
|
|
Packit |
a09cf7 |
my @s_tests = (
|
|
Packit |
a09cf7 |
|
|
Packit |
a09cf7 |
["foo" => "foo"],
|
|
Packit |
a09cf7 |
["foo=bar" => "foo=bar"],
|
|
Packit |
a09cf7 |
[" foo " => "foo"],
|
|
Packit |
a09cf7 |
["foo=" => 'foo=""'],
|
|
Packit |
a09cf7 |
["foo=bar bar=baz" => "foo=bar; bar=baz"],
|
|
Packit |
a09cf7 |
["foo=bar;bar=baz" => "foo=bar; bar=baz"],
|
|
Packit |
a09cf7 |
['foo bar baz' => "foo; bar; baz"],
|
|
Packit |
a09cf7 |
['foo="\"" bar="\\\\"' => 'foo="\""; bar="\\\\"'],
|
|
Packit |
a09cf7 |
['foo,,,bar' => 'foo, bar'],
|
|
Packit |
a09cf7 |
['foo=bar,bar=baz' => 'foo=bar, bar=baz'],
|
|
Packit |
a09cf7 |
|
|
Packit |
a09cf7 |
['TEXT/HTML; CHARSET=ISO-8859-1' =>
|
|
Packit |
a09cf7 |
'text/html; charset=ISO-8859-1'],
|
|
Packit |
a09cf7 |
|
|
Packit |
a09cf7 |
['foo="bar"; port="80,81"; discard, bar=baz' =>
|
|
Packit |
a09cf7 |
'foo=bar; port="80,81"; discard, bar=baz'],
|
|
Packit |
a09cf7 |
|
|
Packit |
a09cf7 |
['Basic realm="\"foo\\\\bar\""' =>
|
|
Packit |
a09cf7 |
'basic; realm="\"foo\\\\bar\""'],
|
|
Packit |
a09cf7 |
);
|
|
Packit |
a09cf7 |
|
|
Packit |
a09cf7 |
plan tests => @s_tests + 3;
|
|
Packit |
a09cf7 |
|
|
Packit |
a09cf7 |
for (@s_tests) {
|
|
Packit |
a09cf7 |
my($arg, $expect) = @$_;
|
|
Packit |
a09cf7 |
my @arg = ref($arg) ? @$arg : $arg;
|
|
Packit |
a09cf7 |
|
|
Packit |
a09cf7 |
my $res = join_header_words(split_header_words(@arg));
|
|
Packit |
a09cf7 |
is($res, $expect);
|
|
Packit |
a09cf7 |
}
|
|
Packit |
a09cf7 |
|
|
Packit |
a09cf7 |
|
|
Packit |
a09cf7 |
note "# Extra tests\n";
|
|
Packit |
a09cf7 |
# some extra tests
|
|
Packit |
a09cf7 |
is(join_header_words("foo" => undef, "bar" => "baz"), "foo; bar=baz");
|
|
Packit |
a09cf7 |
is(join_header_words(), "");
|
|
Packit |
a09cf7 |
is(join_header_words([]), "");
|