App-TestOnTap

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/10-empty.t
t/11-fail.t
t/12-todo.t
t/13-skip.t
t/14-simple_single.t
t/15-simple_multi.t
t/16-bad_dependencies.t
t/17-upside_down.t
t/18-ordering.t
t/19-badconfig.t
t/20-verify_saved_dir.t
t/21-verify_saved_archive.t
t/30-basic_parallel.t
t/40-custom_emap.t
t/50-no-harness.t
t/60-preprocess.t
t/61-postprocess.t
t/config.testontap
t/lib/TestUtils.pm
t/misc/18-alphabetic_config.testontap
t/misc/18-natural_config.testontap
t/misc/40-alt_config.testontap

MANIFEST  view on Meta::CPAN

t/tsuites/simple_single/config.testontap
t/tsuites/simple_single/one_equals_one.pl
t/tsuites/skip/config.testontap
t/tsuites/skip/broken_x_2.pl
t/tsuites/todo/config.testontap
t/tsuites/todo/one_this_one_that.pl
t/tsuites/upside_down/config.testontap
t/tsuites/upside_down/t1.pl
t/tsuites/upside_down/t2.pl
t/tsuites/upside_down/t3.pl
t/tsuites/verify_saved_archive/config.testontap
t/tsuites/verify_saved_archive/t.pl
t/tsuites/verify_saved_dir/config.testontap
t/tsuites/verify_saved_dir/t.pl
xt/author/manifest.t
xt/author/pod.t
xt/standard/placeholder.t
META.yml                                 Module YAML meta-data (added by MakeMaker)
META.json                                Module JSON meta-data (added by MakeMaker)

Makefile.PL  view on Meta::CPAN

			)
		: (),
	$eumm_understands_conf_and_test_requires_properly
		? ( CONFIGURE_REQUIRES => $configure_requires, TEST_REQUIRES => $test_requires )
		: (),
	PREREQ_PM =>
		{
			$eumm_understands_conf_and_test_requires_properly
				? ()
				: ( %$configure_requires, %$test_requires ),
			'Archive::Zip'						=>	1.47,	# 1.30 misbehaves in t\21-verify_saved_archive.t
			'Config'							=>  0,
			'Config::Std'						=>	0,		# initial dev used: 0.901
			'Cwd'								=>  0,
			'Exporter'							=>	0,		# initial dev used: 5.72
			'ExtUtils::Installed'				=>  0,
			'File::Basename'					=>	0,		# initial dev used: 2.85
			'File::Copy::Recursive'				=>	0,		# initial dev used: 0.38
			'File::Find'						=>	0,		# initial dev used: 1.27
			'File::Path'						=>	0,		# initial dev used: 2.12
			'File::Slurp'						=>	0,		# initial dev used: 9999.19

author/patch-next-version.pl  view on Meta::CPAN

		'lib/App/TestOnTap.pm' => 8,
		'lib/App/TestOnTap.pod' => 10,
		'script/testontap' => 6,
	);

foreach my $fn (keys(%files))
{
	die("Failed to find '$fn' in '$toplevel'\n") unless -f "$toplevel/$fn";
}

# verify we're clean
#
my @status = qx(git status --porcelain --ignored 2>&1);
@status = grep(!m#^!! tmp/$#, @status); 
die("Tree not clean:\n@status") if (@status || $?);

# find the current branch:
#
my @br = qx(git symbolic-ref --short HEAD 2>&1);
die("Failed symbref:\n@br") if $?;
chomp(@br);

lib/App/TestOnTap/Args.pm  view on Meta::CPAN

						: ~0;	# max int, e.g. almost 'infinite'
	
	if ($rawOpts{jobs} > $maxJobs)
	{
		$rawOpts{jobs} = $maxJobs;
		warn("WARNING: Maximum jobs restricted, resetting to '--jobs $maxJobs' \n");
	}
	pod2usage(-message => "Invalid -jobs value: '$rawOpts{jobs}'", -exitval => 255, -verbose => 0) if $rawOpts{jobs} < 1;
	$self->{jobs} = $rawOpts{jobs};
	
	# verify known order strategies
	#
	$self->{orderstrategy} = App::TestOnTap::OrderStrategy->new($rawOpts{order}) if $rawOpts{order};
	
	# set up savedir, if given - or, if archive is given fall back to current dir
	#
	if (defined($rawOpts{savedirectory}) || $rawOpts{archive})
	{
		eval
		{
			$self->{savedirectory} = slashify(File::Spec->rel2abs($rawOpts{savedirectory} || '.'));

lib/App/TestOnTap/Args.pm  view on Meta::CPAN

		my $tmpdir = slashify(tempdir("testontap-XXXX", TMPDIR => 1, CLEANUP => 1));

		if (!-f $suiteroot)
		{
			# maybe it's a url?
			# need to dl it before unpacking
			#
			my $localzip = slashify("$tmpdir/local.zip");
			print "Downloading '$suiteroot' => $localzip...\n" if $self->{v};
			my $ua = LWP::UserAgent->new();
			$ua->ssl_opts(verify_hostname => 0);
			my $response = $ua->get($suiteroot, ':content_file' => $localzip);
			if ($response->is_error() || !-f $localzip)
			{
				my $rc = $response->code();
				die("Treated '$suiteroot' as URL - failed to download : $rc\n");
			}
			$zipfile = $localzip;
		}
		
		print "Unpacking '$zipfile'...\n" if $self->{v};