[p5sagit/p5-mst-13.2.git] / t / Module_Pluggable / 15topicsafe.t

#!perl -w

use strict;
use FindBin;
use lib "$FindBin::Bin/lib";
use Test::More 'no_plan';

use Module::Pluggable search_path => 'Acme::MyTest';

my $topic = "topic";

for ($topic) {
  main->plugins;
}

is($topic, 'topic', "we've got the right topic");
Commit	Line	Data
3f7169a2	1	#!perl -w
	2
	3	use strict;
	4	use FindBin;
	5	use lib "$FindBin::Bin/lib";
	6	use Test::More 'no_plan';
	7
	8	use Module::Pluggable search_path => 'Acme::MyTest';
	9
	10	my $topic = "topic";
	11
	12	for ($topic) {
	13	main->plugins;
	14	}
	15
	16	is($topic, 'topic', "we've got the right topic");