XML-Feed/t/04-splice.t

# $Id: 04-splice.t 1958 2006-08-14 05:31:27Z btrott $

use strict;
use Test::More tests => 3;
use XML::Feed;

my $feed = XML::Feed->new('Atom');

my $other = XML::Feed->parse('t/samples/atom.xml')->convert('Atom');
$feed->splice($other);
is(scalar $feed->entries, 2, '2 entries in the feed after splicing');

$feed->splice($other);
is(scalar $feed->entries, 2, 'Still 2 entries after splicing again');

$other = XML::Feed->parse('t/samples/rss10.xml')->convert('Atom');
$feed->splice($other);
is(scalar $feed->entries, 4, 'Now 4 entries after splicing in RSS 1.0 feed');
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');