From b0da6e16950f3a92de9e8cbfaea3212b35d8c3d8 Mon Sep 17 00:00:00 2001 From: John Darrington Date: Wed, 23 Oct 2013 21:24:21 +0200 Subject: [PATCH] Avoid test failure due to indeterminate return values. The test "Perl read system file" has been observed to fail on some systems due to the order of the value labels being different from that expected. Perl does not guarantee the order in which keys returns its values. Therefore this change sorts the return value before using it. --- tests/perl-module.at | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tests/perl-module.at b/tests/perl-module.at index 81fca4a591..eee9ac9947 100644 --- a/tests/perl-module.at +++ b/tests/perl-module.at @@ -355,7 +355,7 @@ AT_DATA([test.pl], my $vl = $var->get_value_labels (); print "Value Labels:\n"; - print "$_ => $vl->{$_}\n" for keys %$vl; + print "$_ => $vl->{$_}\n" for sort (keys %$vl); } while (my @c = $sf->get_next_case () ) @@ -370,16 +370,16 @@ AT_DATA([test.pl], AT_CHECK([RUN_PERL_MODULE test.pl], [0], [Variable 0 is "string", label is "A Short String Variable" Value Labels: -3333 => threes 1111 => ones 2222 => twos +3333 => threes Variable 1 is "longstring", label is "A Long String Variable" Value Labels: Variable 2 is "numeric", label is "A Numeric Variable" Value Labels: 1 => Unity -3 => Thripality 2 => Duality +3 => Thripality Variable 3 is "date", label is "A Date Variable" Value Labels: Variable 4 is "dollar", label is "A Dollar Variable" -- 2.30.2