4 use Test::More tests => 3;
7 my $feed = XML::Feed->new('RSS');
9 my $other = XML::Feed->parse('t/samples/atom.xml')->convert('Atom');
10 $feed->splice($other);
11 is(scalar $feed->entries, 2, '2 entries in the feed after splicing');
13 $feed->splice($other);
14 is(scalar $feed->entries, 2, 'Still 2 entries after splicing again');
16 $other = XML::Feed->parse('t/samples/rss10.xml')->convert('Atom');
17 $feed->splice($other);
18 is(scalar $feed->entries, 4, 'Now 4 entries after splicing in RSS 1.0 feed');