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
|
use strict;
use warnings;
use Test::More tests => 6;
use XML::RSS;
use constant RSS_VERSION => "2.0";
use constant RSS_CHANNEL_TITLE => "Example 2.0 Channel";
use constant RSS_DOCUMENT => qq(<?xml version="1.0"?>
<rss version="2.0">
<channel>
<title>Example 2.0 Channel</title>
<link>http://example.com/</link>
<description>To lead by example</description>
<language>en-us</language>
<managingEditor>editor\@example.com</managingEditor>
<webMaster>webmaster\@example.com</webMaster>
<docs>http://backend.userland.com/rss</docs>
<generator>The Superest Dooperest RSS Generator</generator>
<lastBuildDate>Mon, 02 Sep 2002 03:19:17 GMT</lastBuildDate>
<ttl>60</ttl>
<item>
<title>News for September the Second</title>
<link>http://example.com/2002/09/02</link>
<description>other things happened today</description>
<comments>http://example.com/2002/09/02/comments.html</comments>
<author>joeuser\@example.com</author>
<pubDate>Mon, 02 Sep 2002 03:19:00 GMT</pubDate>
<guid isPermaLink="true">http://example.com/2002/09/02</guid>
<enclosure url="http://example.com/test.mp3" length="5352283" type="audio/mpeg" />
<enclosure url="http://example.com/test2.mp3" length="5352283" type="audio/mpeg" />
</item>
</channel>
</rss>);
{
my $xml = XML::RSS->new();
# TEST
isa_ok($xml,"XML::RSS");
eval { $xml->parse(RSS_DOCUMENT); };
# TEST
is($@,'',"Parsed RSS feed");
# TEST
is_deeply($xml->{items}->[0]->{enclosure},
{ url => "http://example.com/test2.mp3",
length => "5352283",
type => "audio/mpeg" }, "got enclosure");
}
{
my $xml = XML::RSS->new;
eval { $xml->parse(RSS_DOCUMENT, { allow_multiple => [ 'enclosure' ] } ) };
# TEST
is($@,'',"Parsed RSS feed again");
# TEST
is_deeply($xml->{items}->[0]->{enclosure}->[0],
{
url => "http://example.com/test.mp3",
length => "5352283",
type => "audio/mpeg"
},
"got first enclosure"
);
# TEST
is_deeply($xml->{items}->[0]->{enclosure}->[1],
{
url => "http://example.com/test2.mp3",
length => "5352283",
type => "audio/mpeg"
},
"got second enclosure"
);
}
|
