Commit | Line | Data |
---|---|---|
e5a65e5e | 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 | } |