diff options
Diffstat (limited to 'gen-testsuite-part')
-rwxr-xr-x | gen-testsuite-part | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gen-testsuite-part b/gen-testsuite-part index 98f8c24da..46ae56d56 100755 --- a/gen-testsuite-part +++ b/gen-testsuite-part @@ -283,8 +283,9 @@ foreach my $test (@all_tests) $wrapper_setups{$test} = \@setups if @setups; } # And now create all the wrapper tests. -while (my ($wrapped_test, $setup_list) = each %wrapper_setups) +for my $wrapped_test (sort keys %wrapper_setups) { + my $setup_list = $wrapper_setups{$wrapped_test}; (my $base = $wrapped_test) =~ s/\.([^.]*)$//; my $suf = $1 or die "$me: test '$wrapped_test' lacks a suffix\n"; my $count = 0; @@ -345,7 +346,7 @@ my %depmodes = foreach my $lt (TRUE, FALSE) { - foreach my $m (keys %depmodes) + foreach my $m (sort keys %depmodes) { my $planned = ($lt && $m eq "auto") ? 84 : 28; my @required = @@ -400,8 +401,9 @@ print <<EOF; EOF -while (my ($k, $x) = each %deps_extractor) +for my $k (sort keys %deps_extractor) { + my $x = $deps_extractor{$k}; my $dist_prereqs = $x->{dist_prereqs} || ""; my $nodist_prereqs = $x->{nodist_prereqs} || ""; my @tests = grep { line_match $x->{line_matcher}, $_ } @all_tests; |