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]; my $module = $ARGV[0];
for my $mod (keys $data->{jobstatus}->%*) { 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 # Remove invalid names from the list
$data->{modules} = [grep {!m|[/ ]|} $data->{modules}->@*]; $data->{modules} = [grep {!m|[/ ]|} $data->{modules}->@*];
print Dumper($data->{modules}); print Dumper($data);
store $data, 'everything.stor'; 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"; print "Testing $mod\n";
my $status = $jobstatus{$mod}{status} // ""; my $status = $jobstatus{$mod}{status} // "";
unless ($jobstatus{$mod}{tested} == $opt_pass && ($status ne "success" || $status ne 'manual failure') ) { 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); my $status = TestCpanInc::test_module($mod);
$jobstatus{$mod}{tested} = 1; $jobstatus{$mod}{tested} = 1;
$jobstatus{$mod}{status} = $status; $jobstatus{$mod}{status} = $status;