[catagits/XML-Feed.git] / t / 20-no-enclosures.t

use strict;
use Test::More;

use XML::Feed;

my @formats = qw/rss20 atom/;

plan tests => 2*@formats;

for my $format (@formats) {
  ok (my $feed = XML::Feed->parse("t/samples/$format.xml"), "Parsed $format");
  my ($entry) = $feed->entries;
  my @enclosure = $entry->enclosure;
  is(@enclosure, 0);
}
Commit	Line	Data
7b5fccb1	1	use strict;
	2	use Test::More;
	3
	4	use XML::Feed;
	5
	6	my @formats = qw/rss20 atom/;
	7
	8	plan tests => 2*@formats;
	9
	10	for my $format (@formats) {
	11	ok (my $feed = XML::Feed->parse("t/samples/$format.xml"), "Parsed $format");
	12	my ($entry) = $feed->entries;
	13	my @enclosure = $entry->enclosure;
	14	is(@enclosure, 0);
	15	}