Commit | Line | Data |
5b3d39d5 |
1 | #!perl -w |
2 | |
3 | use strict; |
4 | use Test::More tests => 13; |
5 | |
6 | use_ok("XML::Feed"); |
7 | |
8 | |
9 | my $rss_feed; |
10 | ok($rss_feed = XML::Feed->new('RSS'), "Got feed"); |
11 | ok($rss_feed->title('Happy Feed'), "Set feed title"); |
12 | ok($rss_feed->author('Ask Bjork Tate'), "Set feed author"); |
13 | ok($rss_feed->link('http://nowhere.com'), "Set feed link"); |
14 | ok($rss_feed->language('en-US'), "Set feed language"); |
15 | ok($rss_feed->description('not existing since who knows when'), "Set feed description"); |
16 | |
17 | my $rss_entry; |
18 | my $content = <<'EOC'; |
19 | But that's XML::RSS's problem. Oh, and this would |
20 | be an XML::Feed::Content item as specced in the docs, but there is no |
21 | constructor documented for XML::Feed::Content and I know this works |
22 | anyway. |
23 | EOC |
24 | |
25 | ok($rss_entry = XML::Feed::Entry->new('RSS'), "Got entry"); |
26 | ok($rss_entry->title("Title is not always a required element in RSS2"), "Set entry title"); |
27 | ok($rss_entry->content($content), "Set entry content"); |
28 | ok($rss_entry->link('http://nowhere.com/themiddle'), "Set entry link"); |
29 | |
30 | ok($rss_feed->add_entry($rss_entry), "Added entry"); |
31 | |
32 | like($rss_feed->as_xml, qr/problem/i, "Feed has body"); |
33 | |