view release on metacpan or  search on metacpan

t/app.t  view on Meta::CPAN

use constant PROVE_TIMEOUT => 0;	# seconds per module before killing prove

my $VERBOSE = $ENV{TEST_VERBOSE} // 0;

BEGIN {
	use_ok('App::Test::Generator::SchemaExtractor');
	use_ok('App::Test::Generator');
}

# Collect all .pm files under lib/.
# no_chdir avoids File::Find calling chdir() with tainted directory names,
# which would die under prove -t (taint mode).
my $lib_dir = File::Spec->catdir($Bin, '..', 'lib');
my @pm_files;
find(
	{ wanted => sub { push @pm_files, $File::Find::name if /\.pm$/ },
	  no_chdir => 1 },
	$lib_dir
);

diag(scalar(@pm_files) . ' .pm files to self-test') if $VERBOSE;