-
Notifications
You must be signed in to change notification settings - Fork 0
/
20_adapter.t
44 lines (37 loc) · 1.36 KB
/
20_adapter.t
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
use strict;
use warnings;
use Test::MockTime qw/set_fixed_time/;
use CGI;
use CGI::Cookie;
use CGI::Header::Adapter;
use Test::More tests => 3;
use Test::Exception;
set_fixed_time( 1341637509 );
# NOTE: $q->redirect( -p3p => \@tags ) doesn't work
my @args = (
'-NPH' => 1,
'-Status' => '304 Not Modified',
'-Content_Type' => 'text/plain',
'-Charset' => 'utf-8',
'-Attachment' => 'genome.jpg',
'-P3P' => 'CAO DSP LAW CURa',
'-Target' => 'ResultsWindow',
'-Expires' => '+3d',
'-Foo_Bar' => 'baz',
'-Cookie' => [ CGI::Cookie->new(ID => 123456) ],
);
my $header = CGI::Header::Adapter->new( header => { @args } );
is_deeply $header->as_arrayref, [
'Server', 'cmdline',
'Status', '304 Not Modified',
'Window-Target', 'ResultsWindow',
'P3P', 'policyref="/w3c/p3p.xml", CP="CAO DSP LAW CURa"',
'Set-Cookie', 'ID=123456; path=/',
'Expires', 'Tue, 10 Jul 2012 05:05:09 GMT',
'Date', 'Sat, 07 Jul 2012 05:05:09 GMT',
'Content-Disposition', 'attachment; filename="genome.jpg"',
'Foo-bar', 'baz',
'Content-Type', 'text/plain; charset=utf-8',
];
is $header->as_string, $header->query->header( @args );
throws_ok { $header->finalize } qr{^call to abstract method};