t/04-spice-atom.t

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