t/16-convert-mult-categories.t

   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");