From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

SHLOMIF / XML-RSS-1.65 / t / 0.9-parse.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
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

              
use strict;
use warnings;
use strict;
use Test::More;
plan tests => 7;
use constant RSS_VERSION       => "0.9";
use constant RSS_CHANNEL_TITLE => "Example 0.9 Channel";
use constant RSS_DOCUMENT      => qq(<?xml version="1.0"?>
<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
         xmlns="http://my.netscape.com/rdf/simple/0.9/">
  <channel>
    <title>Example 0.9 Channel</title>
    <link>http://www.example.com</link>
    <description>To lead by example</description>
  </channel>
  <image>
    <title>Mozilla</title>
    <url>http://www.example.com/images/whoisonfirst.gif</url>
    <link>http://www.example.com</link>
  </image>
  <item>
    <title>News for September the second</title>
    <link>http://www.example.com/2002/09/02</link>
  </item>
  <item>
    <title>News for September the first</title>
    <link>http://www.example.com/2002/09/01</link>
  </item>
</rdf:RDF>);
use_ok("XML::RSS");
my $xml = XML::RSS->new();
isa_ok($xml,"XML::RSS");
eval { $xml->parse(RSS_DOCUMENT); };
is($@,'',"Parsed RSS feed");
cmp_ok($xml->{'_internal'}->{'version'},
       "eq",
       RSS_VERSION,
       "Is RSS version ".RSS_VERSION);
cmp_ok($xml->{channel}->{'title'},
       "eq",
       RSS_CHANNEL_TITLE,
       "Feed title is ".RSS_CHANNEL_TITLE);
cmp_ok(ref($xml->{items}),
       "eq",
       "ARRAY",
       "\$xml->{items} is an ARRAY ref");
my $ok = 1;
foreach my $item (@{$xml->{items}}) {
  foreach my $el ("title","link") {
    if (! exists $item->{$el}) {
      $ok = 0;
      last;
    }
  }
  last if (! $ok);
}
ok($ok,"All items have title and link elements");
__END__
=head1 NAME
0.9-parse.t - tests for parsing RSS 0.90 data with XML::RSS.pm
=head1 SYNOPSIS
 use Test::Harness qw (runtests);
 runtests (./XML-RSS/t/*.t);
=head1 DESCRIPTION
Tests for parsing RSS 0.90 data with XML::RSS.pm
=head1 VERSION
$Revision: 1.2 $
=head1 DATE
$Date: 2002/11/20 00:01:44 $
=head1 AUTHOR
Aaron Straup Cope
=head1 SEE ALSO
http://www.purplepages.ie/RSS/netscape/rss0.90.html
=cut