[dbsrgits/DBIx-Class-Fixtures.git] / t / compile.t

use strict;
use warnings FATAL => 'all';
use Test::Compile::Internal;
use Test::More;
use Module::Runtime qw[ use_module ];
use FindBin;
use lib "$FindBin::Bin/../lib";
use lib "$FindBin::Bin/../SocialFlow-Web-Config/lib";

BEGIN {
    use FindBin;
    $ENV{SOCIALFLOW_TEMPLATE_PATH} = "$FindBin::Bin/../root/templates";
};

my @pms = Test::Compile::Internal->all_pm_files("lib");

plan tests => 0+@pms;

for my $pm (@pms) {
    $pm =~ s!(^lib/|\.pm$)!!g;
    $pm =~ s|/|::|g;
    ok use_module($pm),$pm;
    $pm->import;
}
Commit	Line	Data
5101f4dd	1	use strict;
	2	use warnings FATAL => 'all';
	3	use Test::Compile::Internal;
	4	use Test::More;
	5	use Module::Runtime qw[ use_module ];
	6	use FindBin;
	7	use lib "$FindBin::Bin/../lib";
	8	use lib "$FindBin::Bin/../SocialFlow-Web-Config/lib";
	9
	10	BEGIN {
	11	use FindBin;
	12	$ENV{SOCIALFLOW_TEMPLATE_PATH} = "$FindBin::Bin/../root/templates";
	13	};
	14
	15	my @pms = Test::Compile::Internal->all_pm_files("lib");
	16
	17	plan tests => 0+@pms;
	18
	19	for my $pm (@pms) {
	20	$pm =~ s!(^lib/\|\.pm$)!!g;
	21	$pm =~ s\|/\|::\|g;
	22	ok use_module($pm),$pm;
	23	$pm->import;
	24	}