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
|
#!/usr/bin/perl -w
use strict;
use Test::More tests => 22;
require_ok('Maypole::Headers');
ok($Maypole::Headers::VERSION, 'defines $VERSION');
ok($INC{'HTTP/Headers.pm'}, 'requires HTTP::Headers');
ok(Maypole::Headers->isa('HTTP::Headers'), '@ISA = HTTP::Headers');
ok(Maypole::Headers->can('new'), 'can new()');
my $h = Maypole::Headers->new;
isa_ok($h, 'Maypole::Headers');
# set()
can_ok($h => 'set');
$h->set(hello_world => 1);
$h->set(JAPH => [qw(Just Another Perl Hacker!)]);
$h->set(Content_Type => 'text/plain', Referer => 'http://localhost/');
# get()
can_ok($h => 'get');
is($h->get('Hello-World'), 1, '... name is normalised, fetches value');
ok($h->get('Content_Type') eq 'text/plain'
&& $h->get('Referer') eq 'http://localhost/',
'... fetches values set() in the same call');
is($h->get('JAPH'), 'Just, Another, Perl, Hacker!',
'... fetches comma-separated multiple values');
is($h->get('non-existant'), undef,
'... returns undef for non-existant header');
# push()
can_ok($h, 'push');
$h->push(japh => 'TMTOWTDI');
is($h->get('JAPH'), 'Just, Another, Perl, Hacker!, TMTOWTDI',
'... appends to a header');
$h->push(H2G2 => 42);
is($h->get('H2G2'), 42,
"...can be used like in place of set() if the field doesn't already exist");
# push()
can_ok($h, 'init');
$h->init(X_Server_Software => 'Maypole');
is($h->get('X-Server-Software'), 'Maypole',
"... Sets a value if it doesn't already exist");
$h->init(X_Server_Software => 'Maypole-XP');
is($h->get('X-Server-Software'), 'Maypole',
"... subsequent init()s don't replace previous values");
# remove()
can_ok($h, 'remove');
$h->remove('H2G2');
is($h->get('H2G2'), undef, 'removes a previously defined field');
# field_names()
can_ok($h, 'field_names');
is_deeply([$h->field_names],
[qw(Referer Content-Type Hello-World JAPH X-Server-Software)],
'... returns a list of field names');
# print $h->as_string;
|
