[catagits/XML-Feed.git] / t / 05-atom10-link.t

use strict;
use XML::Feed;

use Test::More;
plan tests => 3;

my $feed = XML::Feed->parse("t/samples/atom-10-example.xml");
is $feed->title, 'Example Feed';
is $feed->link, 'http://example.org/', "link without rel";

my $e = ($feed->entries)[0];
ok $e->link, 'entry link without rel';
Commit	Line	Data
4679cf3f	1	use strict;
	2	use XML::Feed;
	3
	4	use Test::More;
	5	plan tests => 3;
	6
	7	my $feed = XML::Feed->parse("t/samples/atom-10-example.xml");
	8	is $feed->title, 'Example Feed';
	9	is $feed->link, 'http://example.org/', "link without rel";
	10
	11	my $e = ($feed->entries)[0];
	12	ok $e->link, 'entry link without rel';
	13