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
|
# ----------------------------------------------------------------
use strict;
use Test::More tests => 28;
BEGIN { use_ok('XML::FeedPP') };
# ----------------------------------------------------------------
my $link0 = "http://www.kawa.net/";
my $title0 = "Site 0";
my $link1 = "http://www.kawa.net/xp/index-e.html";
my $title1 = "Entry 1";
my $link2 = "http://www.flickr.com/photos/u-suke/";
my $title2 = "Entry 2";
my $link3 = "http://kawa.at.webry.info/";
my $title3 = "Entry 3";
# ----------------------------------------------------------------
my $feeds = [
XML::FeedPP::RSS->new(),
XML::FeedPP::RDF->new(),
XML::FeedPP::Atom->new(),
];
# ----------------------------------------------------------------
foreach my $feed ( @$feeds ) {
my $type = ref $feed;
$feed->link( $link0 );
$feed->title( $title0 );
is( scalar $feed->get_item(), 0, "$type no item at first" );
my $item1 = $feed->add_item( $link1 );
$item1->title( $title1 );
my $item2 = $feed->add_item( $link2 );
$item2->title( $title2 );
my $item3 = $feed->add_item( $link3 );
$item3->title( $title3 );
is( scalar $feed->get_item(), 3, "$type 3 items" );
my $srcA = $feed->to_string();
ok( $srcA =~ m/<link[^<]+\Q$link1\E/s, "$type to_string 1" );
ok( $srcA =~ m/<link[^<]+\Q$link2\E/s, "$type to_string 2" );
ok( $srcA =~ m/<link[^<]+\Q$link3\E/s, "$type to_string 3" );
$feed->clear_item();
is( scalar $feed->get_item(), 0, "$type no item after clear" );
my $srcB = $feed->to_string();
ok( $srcB !~ m/<link[^<]+\Q$link1\E/s, "$type to_string 4" );
ok( $srcB !~ m/<link[^<]+\Q$link2\E/s, "$type to_string 5" );
ok( $srcB !~ m/<link[^<]+\Q$link3\E/s, "$type to_string 6" );
}
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------
|
