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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use Test::Fatal;
use HTTP::Headers;
BEGIN {
use_ok('HTTP::Headers::ActionPack');
}
my $pack = HTTP::Headers::ActionPack->new;
isa_ok($pack, 'HTTP::Headers::ActionPack');
{
my $h = HTTP::Headers->new(
Date => 'Mon, 23 Apr 2012 14:14:19 GMT',
Content_Type => 'application/xml; charset=UTF-8',
Link => '<http://example.com/TheBook/chapter2>; rel=previous; title="previous chapter"'
);
$pack->inflate( $h );
isa_ok($h->header('Date'), 'HTTP::Headers::ActionPack::DateHeader', '... object is preserved and');
isa_ok($h->header('Content-Type'), 'HTTP::Headers::ActionPack::MediaType', '... object is preserved and');
isa_ok($h->header('Link'), 'HTTP::Headers::ActionPack::LinkList', '... object is preserved and');
is(
$h->as_string,
q{Date: Mon, 23 Apr 2012 14:14:19 GMT
Content-Type: application/xml; charset="UTF-8"
Link: <http://example.com/TheBook/chapter2>; rel="previous"; title="previous chapter"
},
'... got the stringified headers'
);
}
{
my $h = HTTP::Headers->new(
"link" => '</buckets/data-riak-test-5277610365cc43728be2c70dc14b3044/keys/baz>;'
. ' riaktag=\"contained\",'
. '</buckets/data-riak-test-5277610365cc43728be2c70dc14b3044/keys/bar>;'
. ' riaktag=\"contained\",'
. '</buckets/data-riak-test-5277610365cc43728be2c70dc14b3044/keys/foo>;'
. ' riaktag=\"contained\"',
);
$pack->inflate( $h );
is(exception { $pack->inflate( $h ) }, undef, '... this does not throw an exception');
}
done_testing;
|
