XML-Feed/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';

1	dpavlin	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