Commit | Line | Data |
3353d70c |
1 | # $Id$ |
33d4cb3f |
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 | } |