now sorts the test cases when "all" is used

This commit is contained in:
Daniel Stenberg 2000-11-15 08:21:14 +00:00
Родитель eb72e001a7
Коммит e0e67812de
1 изменённых файлов: 6 добавлений и 2 удалений

Просмотреть файл

@ -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 .= " $_";
}
}