#!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");