[catagits/XML-Feed.git] / t / 16-convert-mult-categories.t

# $Id$

use strict;
use Test::More tests => 2;
use XML::Feed;

my $feed = XML::Feed->parse("t/samples/rss-multiple-categories.xml");

my ($entry) = $feed->entries;

is_deeply(
        [$entry->category()],
        ["foo", "bar", "quux", "simon's tags"],        
"Got all categories");

my ($converted_entry) = $feed->convert('Atom')->entries;

is_deeply(
        [$converted_entry->category()],
        ["foo", "bar", "quux", "simon's tags"],        
"All categories in place after conversion");
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");