[catagits/XML-Feed.git] / t / 06-atom10.t

use strict;
use XML::Feed;

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

my $feed = XML::Feed->parse("t/samples/atom-full.xml");
is $feed->title, 'Content Considered Harmful Atom Feed';
is $feed->link, 'http://blog.jrock.us/', "link without rel";

my $e = ($feed->entries)[0];
ok $e->link, 'entry link without rel';
is "".$e->category, "Catalyst", "atom:category support";
is "".$e->modified, "2006-08-09T19:07:58", "atom:updated";
is $e->content->type, 'text/html';
like $e->content->body, qr/^<div class="pod">/;
Commit	Line	Data
c4d4c98e	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';
a91dfb98	13	is "".$e->category, "Catalyst", "atom:category support";
a91dfb98	14	is "".$e->modified, "2006-08-09T19:07:58", "atom:updated";
c4d4c98e	15	is $e->content->type, 'text/html';
	16	like $e->content->body, qr/^<div class="pod">/;
	17
	18
	19