Commit | Line | Data |
ff32fd51 |
1 | # $Id$ |
2 | |
3 | use strict; |
4 | use Test::More tests => 2; |
5 | use XML::Feed; |
6 | |
7 | my $feed = XML::Feed->parse("t/samples/rss-multiple-categories.xml"); |
8 | |
9 | my ($entry) = $feed->entries; |
10 | |
11 | is_deeply( |
12 | [$entry->category()], |
13 | ["foo", "bar", "quux", "simon's tags"], |
14 | "Got all categories"); |
15 | |
16 | my ($converted_entry) = $feed->convert('Atom')->entries; |
17 | |
18 | is_deeply( |
19 | [$converted_entry->category()], |
20 | ["foo", "bar", "quux", "simon's tags"], |
21 | "All categories in place after conversion"); |