[catagits/XML-Feed.git] / t / 04-splice-atom.t

# $Id$

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');
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');