[catagits/XML-Feed.git] / t / 12-multi-categories.base

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

$field ||= "categories";
ok(my $feed = XML::Feed->parse("t/samples/${type}-multiple-${field}.xml"), "Parsed $type file with multiple categories");
my ($entry) = $feed->entries;

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

my $xml = $feed->as_xml;
ok($feed = XML::Feed->parse(\$xml), "Reparsed $type from string");
is_deeply(
        [$entry->category()],
        ["foo", "bar", "quux", "simon's tags"],        
"Got all categories again");

ok($entry->category("quirka fleeg"), "Added a category");
is_deeply(
        [$entry->category()],
        ["foo", "bar", "quux", "simon's tags", "quirka fleeg"],        
"Got new category");
Commit	Line	Data
a0cca2a4	1	use strict;
	2	use Test::More tests => 6;
	3	use XML::Feed;
	4
	5	$field \|\|= "categories";
	6	ok(my $feed = XML::Feed->parse("t/samples/${type}-multiple-${field}.xml"), "Parsed $type file with multiple categories");
	7	my ($entry) = $feed->entries;
	8
	9	is_deeply(
	10	[$entry->category()],
	11	["foo", "bar", "quux", "simon's tags"],
	12	"Got all categories");
	13
	14	my $xml = $feed->as_xml;
	15	ok($feed = XML::Feed->parse(\$xml), "Reparsed $type from string");
	16	is_deeply(
	17	[$entry->category()],
	18	["foo", "bar", "quux", "simon's tags"],
	19	"Got all categories again");
	20
	21	ok($entry->category("quirka fleeg"), "Added a category");
	22	is_deeply(
	23	[$entry->category()],
	24	["foo", "bar", "quux", "simon's tags", "quirka fleeg"],
	25	"Got new category");
	26