Commit | Line | Data |
3353d70c |
1 | # $Id$ |
23103173 |
2 | |
3 | use strict; |
4 | use Test::More tests => 3; |
5 | use XML::Feed; |
6 | |
7 | my $feed = XML::Feed->new('Atom'); |
8 | |
c4d4c98e |
9 | my $other = XML::Feed->parse('t/samples/atom.xml')->convert('Atom'); |
23103173 |
10 | $feed->splice($other); |
11 | is(scalar $feed->entries, 2, '2 entries in the feed after splicing'); |
12 | |
13 | $feed->splice($other); |
14 | is(scalar $feed->entries, 2, 'Still 2 entries after splicing again'); |
15 | |
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'); |