[catagits/Reaction.git] / t / 04load_all.t

use strict;
use warnings;
use Test::More ();

Test::More::plan('no_plan');

use Module::Pluggable::Object;

my $finder = Module::Pluggable::Object->new(
               search_path => [ 'Reaction' ],
               except => qr/Role/,
             );

foreach my $class (grep !/\.ToDo/,
                   sort do { local @INC = ('lib'); $finder->plugins }) {
  Test::More::use_ok($class);
}
Commit	Line	Data
7adfd53f	1	use strict;
	2	use warnings;
	3	use Test::More ();
	4
	5	Test::More::plan('no_plan');
	6
	7	use Module::Pluggable::Object;
	8
	9	my $finder = Module::Pluggable::Object->new(
	10	search_path => [ 'Reaction' ],
cb07f3b8	11	except => qr/Role/,
7adfd53f	12	);
7adfd53f	13
102a0cca	14	foreach my $class (grep !/\.ToDo/,
102a0cca	15	sort do { local @INC = ('lib'); $finder->plugins }) {
7adfd53f	16	Test::More::use_ok($class);
7adfd53f	17	}