This test failed on some platforms because it was iterating a hash. The
order of an iterated hash is undefined. This change sorts before comparing
thus avoiding the problem.
Thanks to Friedrich Beckmann for this patch.
my $vl = $var->get_value_labels ();
print MYFILE "Value Labels:\n";
my $vl = $var->get_value_labels ();
print MYFILE "Value Labels:\n";
- print MYFILE "$_ => $vl->{$_}\n" for keys %$vl;
+ print MYFILE "$_ => $vl->{$_}\n" for (sort keys %$vl);
}
while (my @c = $sf->get_next_case () )
}
while (my @c = $sf->get_next_case () )
ok (compare ("$tempdir/out.txt", <<EOF), "Basic reader operation");
Variable 0 is "string", label is "A Short String Variable"
Value Labels:
ok (compare ("$tempdir/out.txt", <<EOF), "Basic reader operation");
Variable 0 is "string", label is "A Short String Variable"
Value Labels:
1111 => ones
2222 => twos
1111 => ones
2222 => twos
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
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
Variable 3 is "date", label is "A Date Variable"
Value Labels:
Variable 4 is "dollar", label is "A Dollar Variable"
Variable 3 is "date", label is "A Date Variable"
Value Labels:
Variable 4 is "dollar", label is "A Dollar Variable"