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