diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-10-16 10:27:18 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-10-16 22:17:09 -0600 |
| commit | cb4e82463ea6b3435de7bb0b1973c230d010b6c3 (patch) | |
| tree | 55e00a69b3fe9feae6bea89f7896d249a0a5f766 /lib/Unicode | |
| parent | cd164854941d7d4effbd3a79b13c055f3805a293 (diff) | |
| download | perl-cb4e82463ea6b3435de7bb0b1973c230d010b6c3.tar.gz | |
lib/Unicode/UCD.t: Do tests in deterministic order
I needed this in order to compare successive runs of this test
Diffstat (limited to 'lib/Unicode')
| -rw-r--r-- | lib/Unicode/UCD.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index 275fbe1cc2..0ba312e632 100644 --- a/lib/Unicode/UCD.t +++ b/lib/Unicode/UCD.t @@ -628,7 +628,7 @@ while (<$props>) { # official properties. We have no way of knowing if mktables omitted a Perl # extension or not, but we do the best we can from its generated lists -foreach my $alias (keys %utf8::loose_to_file_of) { +foreach my $alias (sort keys %utf8::loose_to_file_of) { next if $alias =~ /=/; my $lc_name = lc $alias; my $loose = &utf8::_loose_name($lc_name); @@ -818,7 +818,7 @@ while (<$propvalues>) { # And test as best we can, the non-official pva's that mktables generates. foreach my $hash (\%utf8::loose_to_file_of, \%utf8::stricter_to_file_of) { - foreach my $test (keys %$hash) { + foreach my $test (sort keys %$hash) { next if exists $pva_tested{$test}; # Skip if already tested my ($prop, $value) = split "=", $test; @@ -992,7 +992,7 @@ my %tested_invlist; # strict foreach my $set_of_tables (\%utf8::stricter_to_file_of, \%utf8::loose_to_file_of) { - foreach my $table (keys %$set_of_tables) { + foreach my $table (sort keys %$set_of_tables) { my $mod_table; my ($prop_only, $value) = split "=", $table; @@ -1202,7 +1202,7 @@ my %tested_invmaps; # lists returned by prop_invlist(), which has already been tested. PROPERTY: -foreach my $prop (keys %props) { +foreach my $prop (sort keys %props) { my $loose_prop = &utf8::_loose_name(lc $prop); my $suppressed = grep { $_ eq $loose_prop } @Unicode::UCD::suppressed_properties; @@ -1993,7 +1993,7 @@ foreach my $prop (keys %props) { # through each and verify that matches what prop_invlist() returns. # We could use is_deeply() for the comparison, but would get multiple # messages for each $prop. - foreach my $map (keys %maps) { + foreach my $map (sort keys %maps) { my @off_invlist = prop_invlist("$prop = $map"); my $min = (@off_invlist >= @{$maps{$map}}) ? @off_invlist |