runner.pm: rename variable to avoid spelling exceptions

This commit is contained in:
Viktor Szakats 2025-07-12 11:15:27 +02:00
parent cbcc8bb410
commit c79ed59e36
No known key found for this signature in database
GPG key ID: B5ABD165E2AEF201
3 changed files with 8 additions and 9 deletions

View file

@ -24,7 +24,6 @@ ser
strat
te
ths
ttests
varius
wast
wit

View file

@ -7,7 +7,7 @@ extend-ignore-identifiers-re = [
"(ba|BA|fo|Fo|FU|Iy|ND|OT|pn|PN|ue|UE)",
"(anc|bck|ben|CNA|ECT|EDE|edn|ein|Jod|kno|MEK|Nam|Ned|noo|nin|nto|ser|ths|Typ|typ|URE|wrk)",
"(admi|alue|CLEA|clen|GOST|HELO|helo|htpt|PARM|PASE)",
"(HEADE|numer|optin|stati|ttests)",
"(HEADE|numer|optin|stati)",
"(Januar|passin|Passiv|perfec|PUNICODE|TEMPLAT|varius)",
]

View file

@ -458,18 +458,18 @@ sub torture {
return 0;
}
my @ttests = (1 .. $count);
my @torture_tests = (1 .. $count);
if($shallow && ($shallow < $count)) {
my $discard = scalar(@ttests) - $shallow;
my $percent = sprintf("%.2f%%", $shallow * 100 / scalar(@ttests));
my $discard = scalar(@torture_tests) - $shallow;
my $percent = sprintf("%.2f%%", $shallow * 100 / scalar(@torture_tests));
logmsg " $count functions found, but only fail $shallow ($percent)\n";
while($discard) {
my $rm;
do {
# find a test to discard
$rm = rand(scalar(@ttests));
} while(!$ttests[$rm]);
$ttests[$rm] = undef;
$rm = rand(scalar(@torture_tests));
} while(!$torture_tests[$rm]);
$torture_tests[$rm] = undef;
$discard--;
}
}
@ -477,7 +477,7 @@ sub torture {
logmsg " $count functions to make fail\n";
}
for (@ttests) {
for (@torture_tests) {
my $limit = $_;
my $fail;
my $dumped_core;