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

ok pass actually set to 1 now. still problems with manual failures

Browse source
This commit is contained in:
Your Name 2017-04-18 15:07:36 -04:00
parent 879c4ac4e8
commit db8f704fa2
4 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
everything.stor
View file

Binary file not shown.

4
fixfailed.pl
View file

@ -9,12 +9,12 @@ my $data = retrieve 'everything.stor';
my $module = $ARGV[0];
for my $mod (keys $data->{jobstatus}->%*) {
$data->{jobstatus}{$module}{tested} = 1; # set pass to 1
$data->{jobstatus}{$mod}{tested} = 1; # set pass to 1
}
# Remove invalid names from the list
$data->{modules} = [grep {!m|[/ ]|} $data->{modules}->@*];
print Dumper($data->{modules});
print Dumper($data);
store $data, 'everything.stor';

BIN
modcache.stor
View file

Binary file not shown.

1
run.pl
View file

@ -75,6 +75,7 @@ for my $mod (@modules) {
print "Testing $mod\n";
my $status = $jobstatus{$mod}{status} // "";
unless ($jobstatus{$mod}{tested} == $opt_pass && ($status ne "success" || $status ne 'manual failure') ) {
print "STATUS => $status, PASS => $opt_pass, TESTED => ", $jobstatus{$mod}{tested}, "\n";
my $status = TestCpanInc::test_module($mod);
$jobstatus{$mod}{tested} = 1;
$jobstatus{$mod}{status} = $status;