t/13-category-hash-bug.t

   1 use strict;
   2 use Test::More;
   3
   4 eval { require XML::RSS::LibXML };
   5 plan skip_all => "XML::RSS::LibXML is required." if $@;
   6
   7 plan tests => 20;
   8
   9 use XML::Feed;
  10
  11 for my $parser (qw( XML::RSS XML::RSS::LibXML )) {
  12     $XML::Feed::Format::RSS::PREFERRED_PARSER = $parser;
  13
  14     my $f = XML::Feed->parse("t/samples/category-bug.xml");
  15     for my $e ($f->entries) {
  16         eval { $e->category };
  17         ok !$@, $@;
  18     }
  19 }