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 }