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
32
33
|
#!perl -w
use strict;
use Test::More tests => 13;
use_ok("XML::Feed");
my $rss_feed;
ok($rss_feed = XML::Feed->new('RSS'), "Got feed");
ok($rss_feed->title('Happy Feed'), "Set feed title");
ok($rss_feed->author('Ask Bjork Tate'), "Set feed author");
ok($rss_feed->link('http://nowhere.com'), "Set feed link");
ok($rss_feed->language('en-US'), "Set feed language");
ok($rss_feed->description('not existing since who knows when'), "Set feed description");
my $rss_entry;
my $content = <<'EOC';
But that's XML::RSS's problem. Oh, and this would
be an XML::Feed::Content item as specced in the docs, but there is no
constructor documented for XML::Feed::Content and I know this works
anyway.
EOC
ok($rss_entry = XML::Feed::Entry->new('RSS'), "Got entry");
ok($rss_entry->title("Title is not always a required element in RSS2"), "Set entry title");
ok($rss_entry->content($content), "Set entry content");
ok($rss_entry->link('http://nowhere.com/themiddle'), "Set entry link");
ok($rss_feed->add_entry($rss_entry), "Added entry");
like($rss_feed->as_xml, qr/problem/i, "Feed has body");
|
