4 use Test::More tests => 6;
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');
14 ok($afeed->add_entry($atom), "Added Atom entry to Atom feed");
15 ok($afeed->add_entry($rss), "Added RSS entry to Atom feed");
17 ok($rfeed->add_entry($rss), "Added RSS entry to RSS feed");
18 ok($rfeed->add_entry($atom), "Added Atom entry to RSS feed");
22 is(scalar $afeed->entries, 2, 'Now 2 entries in Atom feed');
23 is(scalar $rfeed->entries, 2, 'Now 2 entries in RSS feed');
27 my $entry = XML::Feed::Entry->new($format);
28 $entry->title("Test Title ".rand());
29 $entry->content("Foo");
30 $entry->summary("Bar");