projects
/
catagits/XML-Feed.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Bump version for release
[catagits/XML-Feed.git]
/
t
/
20-no-enclosures.t
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
}