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
112
|
# ----------------------------------------------------------------
use strict;
use Test::More tests => 13;
BEGIN { use_ok('XML::FeedPP') };
# ----------------------------------------------------------------
my $invalid = <<'EOT';
<?xml version="1.0" encoding="UTF-8" ?>
<rdf:RDF
xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
xmlns:dc="http://purl.org/dc/elements/1.1/"
xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
xmlns:cc="http://web.resource.org/cc/"
xmlns="http://purl.org/rss/1.0/"
xml:lang="ja">
<channel rdf:about="http://www.cnc.co.jp/news/xml/rss.xml">
<dc:language>ja</dc:language>
<dc:date>2008-03-24T16:54:33 +0900</dc:date>
<items>
<rdf:Seq>
<rdf:li rdf:resource="http://www.example.com/sample1.html" />
</rdf:Seq>
<rdf:Seq>
<rdf:li rdf:resource="http://www.example.com/sample2.html" />
</rdf:Seq>
<rdf:Seq>
<rdf:li rdf:resource="http://www.example.com/sample3.html" />
</rdf:Seq>
</items>
</channel>
<item rdf:about="http://www.example.com/sample1.html">
<title>sample item #1</title>
<link>http://www.example.com/sample1.html</link>
<dc:date>2008-03-24T16:54:33 +0900</dc:date>
</item>
<item rdf:about="http://www.example.com/sample2.html">
<title>sample item #2</title>
<link>http://www.example.com/sample2.html</link>
<dc:date>2008-02-29T18:21:38 +0900</dc:date>
</item>
<item rdf:about="http://www.example.com/sample3.html">
<title>sample item #3</title>
<link>http://www.example.com/sample3.html</link>
<dc:date>2008-02-25T11:54:15 +0900</dc:date>
</item>
</rdf:RDF>
EOT
# ----------------------------------------------------------------
my $valid = <<'EOT';
<?xml version="1.0" encoding="UTF-8" ?>
<rdf:RDF
xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
xmlns:dc="http://purl.org/dc/elements/1.1/"
xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
xmlns:cc="http://web.resource.org/cc/"
xmlns="http://purl.org/rss/1.0/"
xml:lang="ja">
<channel rdf:about="http://www.cnc.co.jp/news/xml/rss.xml">
<dc:language>ja</dc:language>
<dc:date>2008-03-24T16:54:33+09:00</dc:date>
<items>
<rdf:Seq>
<rdf:li rdf:resource="http://www.example.com/sample1.html" />
<rdf:li rdf:resource="http://www.example.com/sample2.html" />
<rdf:li rdf:resource="http://www.example.com/sample3.html" />
</rdf:Seq>
</items>
</channel>
<item rdf:about="http://www.example.com/sample1.html">
<title>sample item #1</title>
<link>http://www.example.com/sample1.html</link>
<dc:date>2008-03-24T16:54:33+09:00</dc:date>
</item>
<item rdf:about="http://www.example.com/sample2.html">
<title>sample item #2</title>
<link>http://www.example.com/sample2.html</link>
<dc:date>2008-02-29T18:21:38+09:00</dc:date>
</item>
<item rdf:about="http://www.example.com/sample3.html">
<title>sample item #3</title>
<link>http://www.example.com/sample3.html</link>
<dc:date>2008-02-25T11:54:15+09:00</dc:date>
</item>
</rdf:RDF>
EOT
# ----------------------------------------------------------------
my $vfeed = XML::FeedPP->new( $valid );
is( $vfeed->pubDate, '2008-03-24T16:54:33+09:00', 'valid feed pubDate' );
is( scalar $vfeed->get_item(), 3, 'valid feed item number' );
my $vitem = $vfeed->get_item( 2 );
is( $vitem->title, 'sample item #3', 'valid item title' );
is( $vitem->pubDate, '2008-02-25T11:54:15+09:00', 'valid item pubDate' );
# ----------------------------------------------------------------
my $ifeed = XML::FeedPP->new( $invalid );
is( $ifeed->pubDate, '2008-03-24T16:54:33 +0900', 'invalid feed pubDate' );
is( scalar $ifeed->get_item(), 3, 'invalid feed item number' );
my $iitem = $ifeed->get_item( 2 );
is( $iitem->title, 'sample item #3', 'invalid item title' );
is( $iitem->pubDate, '2008-02-25T11:54:15 +0900', 'invalid item pubDate' );
# ----------------------------------------------------------------
my $isource = $ifeed->to_string();
my $rss = XML::FeedPP::RSS->new();
$rss->merge( $isource );
my $rsource = $rss->to_string();
my $rfeed = XML::FeedPP::RDF->new();
$rfeed->merge( $rsource );
# ----------------------------------------------------------------
is( $rfeed->pubDate, '2008-03-24T16:54:33+09:00', 'round trip feed pubDate' );
is( scalar $rfeed->get_item(), 3, 'round trip feed item number' );
my $ritem = $rfeed->get_item( 2 );
is( $ritem->title, 'sample item #3', 'round trip item title' );
is( $ritem->pubDate, '2008-02-25T11:54:15+09:00', 'round trip item pubDate' );
# ----------------------------------------------------------------
|
