# ---------------------------------------------------------------- use strict; use Test::More tests => 32; BEGIN { use_ok('XML::FeedPP') }; # ---------------------------------------------------------------- my $url = "http://www.kawa.net/"; my $cate1 = "hoge"; my $cate2 = "pomu"; my $cate3 = "foobar"; my $catem = [ $cate1, $cate2, $cate3 ]; my $caten = scalar @$catem; # ---------------------------------------------------------------- my $feed0 = XML::FeedPP::RSS->new(); $feed0->link( $url ); my $item0 = $feed0->add_item( $url ); $item0->category( $catem ); ok( ref $item0->category(), "init multi ref" ); my $source = $feed0->to_string(); like( $source, qr/>\s*\Q$cate1\E\s*\s*\Q$cate2\E\s*\s*\Q$cate3\E\s*new(), XML::FeedPP::RSS->new(), XML::FeedPP::RDF->new(), ]; # ---------------------------------------------------------------- foreach my $feed1 ( @$feeds ) { my $type = ref $feed1; $feed1->merge( $source ); my $item1 = $feed1->get_item(0); my $icate = $item1->category(); ok( ref $icate, "$type load ref" ); is( scalar @$icate, $caten, "$type load count" ); $item1->category( $cate1 ); is( $item1->category(), $cate1, "$type one" ); ok( $feed1->to_string() =~ />\s*\Q$cate1\E\s*category( $catem ); my $jcate = $item1->category(); ok( ref $jcate, "$type multi ref" ); is( scalar @$jcate, $caten, "$type multi count" ); $source = $feed1->to_string(); like( $source, qr/>\s*\Q$cate1\E\s*\s*\Q$cate2\E\s*\s*\Q$cate3\E\s*