t/10-mix-and-match.t

   1 # $Id$
   2
   3 use strict;
   4 use Test::More tests => 6;
   5 use XML::Feed;
   6
   7
   8 my $afeed  = XML::Feed->new('Atom');
   9 my $rfeed  = XML::Feed->new('RSS');
  10 my $atom   = make_entry('Atom');
  11 my $rss    = make_entry('RSS');
  12
  13
  14 ok($afeed->add_entry($atom), "Added Atom entry to Atom feed");
  15 ok($afeed->add_entry($rss),  "Added RSS  entry to Atom feed");
  16
  17 ok($rfeed->add_entry($rss),  "Added RSS  entry to RSS feed");
  18 ok($rfeed->add_entry($atom), "Added Atom entry to RSS feed");
  19
  20
  21
  22 is(scalar $afeed->entries, 2, 'Now 2 entries in Atom feed');
  23 is(scalar $rfeed->entries, 2, 'Now 2 entries in RSS  feed');
  24
  25 sub make_entry {
  26     my $format = shift;
  27     my $entry  = XML::Feed::Entry->new($format);
  28     $entry->title("Test Title ".rand());
  29     $entry->content("Foo");
  30     $entry->summary("Bar");
  31     return $entry;
  32 }