t/05-atom10-link.t

   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