Changeset Navigation

Changeset 1499

Timestamp:

08/20/06 18:16:38

Author:

miyagawa

Message:

Fixed Subscription::OPML bug that Conainers tag are not properly dereferenced. Added test.

Files:

r1173	r1499
62	62	$feed->link($outline->{htmlUrl});
63	63	$feed->title($outline->{title} \|\| $outline->{text});
64		$feed->tags(~~$containers~~);
	64	$feed->tags([ @$containers ]);
65	65	$context->subscription->add($feed);
66	66	}

r1420	r1499
3	3
4	4	test_plugin_deps;
5		plan ~~tests => 3~~;
	5	plan 'no_plan';
6	6
7	7	diag "This test will raise warnings due to XML::OPML internal, but it's harmless";
…	…
21	21	is $context->subscription->feeds->[0]->link, "http://blog.bulknews.net/mt/";
22	22	is $context->subscription->feeds->[0]->title, "blog.bulknews.net";
	23
	24	=== test nested subs
	25	--- input config
	26	plugins:
	27	- module: Subscription::OPML
	28	config:
	29	url: file://$t::TestPlagger::BaseDirURI/t/samples/opml-nested.xml
	30	- module: Aggregator::Null
	31	--- expected
	32	my @feeds = sort { $a->url cmp $b->url } $context->subscription->feeds;
	33
	34	is $feeds[0]->url, "http://blog.bulknews.net/mt/index.rdf";
	35	is $feeds[0]->link, "http://blog.bulknews.net/mt/";
	36	is $feeds[0]->title, "blog.bulknews.net";
	37	is_deeply $feeds[0]->tags, [ 'Foo' ];
	38
	39	is $feeds[1]->url, "http://subtech.g.hatena.ne.jp/miyagawa/rss";
	40	is $feeds[1]->link, "http://subtech.g.hatena.ne.jp/miyagawa/";
	41	is $feeds[1]->title, "Bulknews::Subtech";
	42	is_deeply $feeds[1]->tags, [ 'Bar', 'Baz' ];
	43