t/06-atom10.t

   1 use strict;
   2 use XML::Feed;
   3
   4 use Test::More;
   5 plan tests => 7;
   6
   7 my $feed = XML::Feed->parse("t/samples/atom-full.xml");
   8 is $feed->title, 'Content Considered Harmful Atom Feed';
   9 is $feed->link, 'http://blog.jrock.us/', "link without rel";
  10
  11 my $e = ($feed->entries)[0];
  12 ok $e->link, 'entry link without rel';
  13 is $e->category, "Catalyst", "atom:category support";
  14 is $e->modified, "2006-08-09T19:07:58", "atom:updated";
  15 is $e->content->type, 'text/html';
  16 like $e->content->body, qr/^<div class="pod">/;
  17
  18
  19