1 |
dpavlin |
1 |
# $Id: 04-splice.t 1958 2006-08-14 05:31:27Z btrott $ |
2 |
|
|
|
3 |
|
|
use strict; |
4 |
|
|
use Test::More tests => 3; |
5 |
|
|
use XML::Feed; |
6 |
|
|
|
7 |
|
|
my $feed = XML::Feed->new('Atom'); |
8 |
|
|
|
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'); |
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'); |