now sorts the test cases when "all" is used

2000-11-15 08:21:14 +00:00
parent eb72e001a7
commit e0e67812de
1 changed files with 6 additions and 2 deletions
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -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 .= " $_";
    }
 }