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
|
# ----------------------------------------------------------------
use strict;
use Test::More tests => 28;
BEGIN { use_ok('XML::FeedPP') };
# ----------------------------------------------------------------
my $top = "http://www.kawa.net/";
my $links = [qw(
http://www.kawa.net/xp/index-e.html
http://www.kawa.net/xp/index-j.html
http://kawa.at.webry.info/
http://www.flickr.com/photos/u-suke/
)];
# ----------------------------------------------------------------
my $feeds = [
XML::FeedPP::RSS->new(),
XML::FeedPP::RDF->new(),
XML::FeedPP::Atom->new(),
];
# ----------------------------------------------------------------
foreach my $feed ( @$feeds ) {
my $type = ref $feed;
$feed->link( $top );
foreach my $link ( @$links ) {
$feed->add_item( $link );
}
my $cnt = scalar @$links;
is( scalar $feed->get_item(), $cnt, "$type count $cnt" );
my $remove1 = $feed->remove_item( 1 );
is( $remove1->link(), $links->[1], "$type remove_item by num 1" );
is( scalar $feed->get_item(), --$cnt, "$type count $cnt" );
my $remove2 = $feed->remove_item( $links->[2] );
is( $remove2->link(), $links->[2], "$type remove_item by link" );
is( scalar $feed->get_item(), --$cnt, "$type count $cnt" );
my $remove3 = $feed->remove_item( -1 );
is( $remove3->link(), $links->[3], "$type remove_item by num -1" );
is( scalar $feed->get_item(), --$cnt, "$type count $cnt" );
my $rest = $feed->get_item(0);
is( $rest->link(), $links->[0], "$type item rest" );
}
# ----------------------------------------------------------------
my $rdf = $feeds->[1];
my $rdfli = $rdf->{'rdf:RDF'}->{channel}->{items}->{'rdf:Seq'}->{'rdf:li'};
is( ref $rdfli, "ARRAY", "RDF rdf:li ARRAY" );
is( scalar @$rdfli, 1, "RDF rdf:li count" );
is( $rdfli->[0]->{'-rdf:resource'}, $links->[0], "RDF rdf:li link" );
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------
|
