simcop2387/treedeps
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Mostly there. Need to make a generic killed runner with size limited output buffer

Browse source
This commit is contained in:
ryan 2017-07-26 15:01:15 -07:00
parent f2969f6975
commit 584e007512
4 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
everything_cpanfile
View file

@ -1186,7 +1186,7 @@ requires 'Test::Stochastic' => 0; # A/AM/AMAHABAL/Test-Stochastic-0.03.tar.gz
requires 'DB::Appgen' => 0; # A/AM/AMALTSEV/DB-Appgen-1.02.tar.gz
requires 'Spreadsheet::Write' => 0; # A/AM/AMALTSEV/Spreadsheet-Write-0.03.tar.gz
requires 'XAO::DO::Data::Customer' => 0; # A/AM/AMALTSEV/XAO-FS-1.16.tar.gz
requires 'Apache::XAO' => 0; # A/AM/AMALTSEV/XAO-Web-1.47.tar.gz
#requires 'Apache::XAO' => 0; # A/AM/AMALTSEV/XAO-Web-1.47.tar.gz
requires 'HTML::EP::Wizard' => 0; # A/AM/AMAR/Wizard-0.1003.tar.gz
requires 'Wizard::Examples::LDAP' => 0; # A/AM/AMAR/Wizard-LDAP-0.1004.tar.gz
requires 'Wizard::SaveAble::LDAP' => 0; # A/AM/AMAR/Wizard-LDAP-0.1006.tar.gz

2
lib/Module.pm
View file

@ -109,7 +109,7 @@ sub get_deps {
warn "Failed to get deps for $module: $?" unless $ret;
last if ($ret);
}
die "FATAL: no deps for $module" unless $ret;
die "FATAL: no deps for $module: $out" unless $ret;
my $deps = [map {Module->new_module($_)} grep {!_is_core($_)} grep {defined $_ && $_ !~ /^\s*$/} split($/, $out)];

BIN
modcache.stor
View file

Binary file not shown.

10
run.pl
View file

@ -21,12 +21,13 @@ my $opt_module;
my $opt_help;
my $opt_jobstor='';
my $opt_pass=1;
my $opt_depsonly;
GetOptions ("module=s" => \$opt_module,
"cpanfile=s" => \$opt_cpanfile, # string
"perlbrew_env=s" => \$TestCpanInc::perlbrew_env,
"jobstor=s" => \$opt_jobstor,
"pass=n" => \$opt_pass,
"depsonly" => \$opt_depsonly,
"help" => \$opt_help); # flagV
if ((!$opt_module && !$opt_cpanfile) || ($opt_module && $opt_cpanfile) || $opt_help) {
@ -54,7 +55,8 @@ if (!-e $opt_jobstor) {
print "Building dep list sorry, this'll take a while\n";
for my $mtt (@mods_to_test) {
my $mod = Module->new_module($mtt);
push @modules, map {$_->name} uniq TestCpanInc::dep_order($mod);
eval {push @modules, map {$_->name} uniq TestCpanInc::dep_order($mod)};
warn $@ if $@;
}
print "\n";
@modules = uniq(@modules);
@ -65,12 +67,14 @@ if (!-e $opt_jobstor) {
}
sub __save_cache {
if ($opt_jobstor) {
if ($opt_jobstor && !$opt_depsonly) {
store {modules => \@modules, jobstatus => \%jobstatus}, $opt_jobstor;
}
};
END {__save_cache};
exit if $opt_depsonly;
for my $mod (@modules) {
print "Testing $mod\n";
my $status = $jobstatus{$mod}{status} // "";