now sorts the test cases when "all" is used
This commit is contained in:
Родитель
eb72e001a7
Коммит
e0e67812de
|
@ -398,10 +398,14 @@ if ( $TESTCASES eq "all") {
|
|||
my @cmds = grep { /^command/ && -f "$TESTDIR/$_" } readdir(DIR);
|
||||
closedir DIR;
|
||||
|
||||
$TESTCASES="";
|
||||
$TESTCASES=""; # start with no test cases
|
||||
|
||||
# cut off everything but the digits
|
||||
for(@cmds) {
|
||||
# cut off everything but the digits
|
||||
$_ =~ s/[a-z\/\.]*//g;
|
||||
}
|
||||
# the the numbers from low to high
|
||||
for(sort { $a <=> $b } @cmds) {
|
||||
$TESTCASES .= " $_";
|
||||
}
|
||||
}
|
||||
|
|
Загрузка…
Ссылка в новой задаче