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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use Test::Fatal;
use HTTP::Response;
use HTTP::Headers;
BEGIN {
use_ok('HTTP::Headers::ActionPack::DateHeader');
use_ok('HTTP::Headers::ActionPack::LinkHeader');
use_ok('HTTP::Headers::ActionPack::LinkList');
use_ok('HTTP::Headers::ActionPack::MediaType');
}
=pod
This just tests that HTTP::Response does
not stringify our objects until we ask
it to.
=cut
{
my $r = HTTP::Response->new(
200,
'OK',
HTTP::Headers->new(
Date => HTTP::Headers::ActionPack::DateHeader->new_from_string('Mon, 23 Apr 2012 14:14:19 GMT'),
Content_Type => HTTP::Headers::ActionPack::MediaType->new('application/xml', 'charset' => 'UTF-8'),
Link => HTTP::Headers::ActionPack::LinkList->new(
HTTP::Headers::ActionPack::LinkHeader->new(
'http://example.com/TheBook/chapter2' => (
rel => "previous",
title => "previous chapter"
)
)
)
)
);
isa_ok($r->header('Date'), 'HTTP::Headers::ActionPack::DateHeader', '... object is preserved and');
isa_ok($r->header('Content-Type'), 'HTTP::Headers::ActionPack::MediaType', '... object is preserved and');
isa_ok($r->header('Link'), 'HTTP::Headers::ActionPack::LinkList', '... object is preserved and');
is(
$r->as_string,
q{200 OK
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 $r = HTTP::Response->new(
200,
'OK',
[
Date => HTTP::Headers::ActionPack::DateHeader->new_from_string('Mon, 23 Apr 2012 14:14:19 GMT'),
Content_Type => HTTP::Headers::ActionPack::MediaType->new('application/xml', 'charset' => 'UTF-8'),
Link => HTTP::Headers::ActionPack::LinkList->new(
HTTP::Headers::ActionPack::LinkHeader->new(
'http://example.com/TheBook/chapter2' => (
rel => "previous",
title => "previous chapter"
)
)
)
]
);
isa_ok($r->header('Date'), 'HTTP::Headers::ActionPack::DateHeader', '... object is preserved and');
isa_ok($r->header('Content-Type'), 'HTTP::Headers::ActionPack::MediaType', '... object is preserved and');
isa_ok($r->header('Link'), 'HTTP::Headers::ActionPack::LinkList', '... object is preserved and');
is(
$r->as_string,
q{200 OK
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'
);
}
done_testing;
|
