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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
# ----------------------------------------------------------------
use strict;
use Test::More tests => 74;
BEGIN { use_ok('XML::FeedPP') };
# ----------------------------------------------------------------
my $ftitle = 'Kawa.net XP';
my $fdesc = 'Description';
my $fdateA = 'Mon, 02 Jan 2006 03:04:05 +0600';
my $fdateB = '2006-01-02T03:04:05+06:00';
my $fright = 'Owner';
my $flink = 'http://www.kawa.net/';
my $flang = 'ja';
my $forgkey = 'hoge:pomu';
my $forgval = 'Original Namespace: hoge';
# ----------------------------------------------------------------
my $ilink1 = 'http://kawa.at.webry.info/';
my $ilink2 = 'http://kawanet.blogspot.com/';
my $ilink3 = 'http://picasaweb.google.com/www.kawa.net/';
my $ititle1 = 'Kawa.net Blog (ja)';
my $ititle2 = 'Kawa.net Blog (en)';
my $ititle3 = 'Kawa.net Albums';
my $idateA = 'Sun, 11 Dec 2005 10:09:08 -0700';
my $idateB = '2005-12-11T10:09:08-07:00';
my $idesc = 'Description';
my $icate = 'Category';
my $iauthor = 'Author';
my $iguid = 'GUID';
my $iorgkey = 'foo:bar';
my $iorgval = 'Original Namespace: foo';
# ----------------------------------------------------------------
my $initfeed = {
title => $ftitle,
description => $fdesc,
pubDate => $fdateA,
copyright => $fright,
link => $flink,
language => $flang,
$forgkey => $forgval,
};
# ----------------------------------------------------------------
my $initem1 = {
link => $ilink1,
title => $ititle1,
pubDate => $idateA,
description => $idesc,
category => $icate,
author => $iauthor,
guid => $iguid,
$iorgkey => $iorgval,
};
# ----------------------------------------------------------------
my $initem2 = {
link => $ilink2,
title => $ititle2,
pubDate => $idateB,
};
# ----------------------------------------------------------------
my $initem3 = {
link => $ilink3,
title => $ititle3,
pubDate => $idateA,
};
# ----------------------------------------------------------------
my $feeds = [
XML::FeedPP::RSS->new( %$initfeed ),
XML::FeedPP::RDF->new( %$initfeed ),
XML::FeedPP::Atom->new( %$initfeed ),
];
# ----------------------------------------------------------------
foreach my $feed1 ( @$feeds ) {
my $type = ref $feed1;
ok( 0 == $feed1->get_item(), "$type Feed has no item" );
my $item1 = $feed1->add_item( %$initem1 );
ok( 1 == $feed1->get_item(), "$type Feed has one item" );
my $item2 = $feed1->add_item( %$initem2 );
ok( 2 == $feed1->get_item(), "$type Feed has two items" );
my $item3 = $feed1->add_item( %$initem3 );
ok( 3 == $feed1->get_item(), "$type Feed has three items" );
# ----------------------------------------------------------------
is( $feed1->title(), $ftitle, "$type Feed title()" );
is( $feed1->description(), $fdesc, "$type Feed description()" );
is( $feed1->pubDate(), $fdateB, "$type Feed pubDate()" );
is( $feed1->copyright(), $fright, "$type Feed copyright()" );
is( $feed1->link(), $flink, "$type Feed link()" );
is( $feed1->language(), $flang, "$type Feed language()" );
is( $feed1->get($forgkey), $forgval, "$type Feed set/get()" );
# ----------------------------------------------------------------
is( $item1->link(), $ilink1, "$type Item1 link()" );
is( $item1->title(), $ititle1, "$type Item1 title()" );
is( $item1->get_pubDate_w3cdtf(), $idateB, "$type Item1 pubDate()" );
is( $item1->description(), $idesc, "$type Item1 description()" );
is( $item1->author(), $iauthor, "$type Item1 author()" );
is( $item1->get($iorgkey), $iorgval, "$type Item1 set/get()" );
if ( $type ne 'XML::FeedPP::Atom' ) {
is( $item1->category(), $icate, "$type Item1 category()" );
}
if ( $type ne 'XML::FeedPP::RDF' ) {
is( $item1->guid(), $iguid , "$type Item1 guid()" );
}
# ----------------------------------------------------------------
is( $item2->link(), $ilink2, "$type Item2 link()" );
is( $item2->title(), $ititle2, "$type Item2 title()" );
is( $item2->get_pubDate_rfc1123(), $idateA, "$type Item2 pubDate()" );
# ----------------------------------------------------------------
is( $item3->link(), $ilink3, "$type Item3 link()" );
is( $item3->title(), $ititle3, "$type Item3 title()" );
is( $item3->get_pubDate_rfc1123(), $idateA, "$type Item3 pubDate()" );
}
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------
|
