2 use Test::More tests => 6;
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;
11 ["foo", "bar", "quux", "simon's tags"],
12 "Got all categories");
14 my $xml = $feed->as_xml;
15 ok($feed = XML::Feed->parse(\$xml), "Reparsed $type from string");
18 ["foo", "bar", "quux", "simon's tags"],
19 "Got all categories again");
21 ok($entry->category("quirka fleeg"), "Added a category");
24 ["foo", "bar", "quux", "simon's tags", "quirka fleeg"],