diff options
| author | Karl Williamson <khw@cpan.org> | 2018-03-07 12:08:01 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2018-03-12 10:17:14 -0600 |
| commit | 4806e6cd41dafb8b1e990f0c6d1d5ff8b3f64fb6 (patch) | |
| tree | e1520c6fa7d005e3b63b6445f804a177b26b96ce /ext | |
| parent | cb2a626de53c9b7ef6e1cfa9eda8939968d486ec (diff) | |
| download | perl-4806e6cd41dafb8b1e990f0c6d1d5ff8b3f64fb6.tar.gz | |
APItest/t/locale.t: Store hash return for readability
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/XS-APItest/t/locale.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/XS-APItest/t/locale.t b/ext/XS-APItest/t/locale.t index 0aae384d8f..441b90f8ec 100644 --- a/ext/XS-APItest/t/locale.t +++ b/ext/XS-APItest/t/locale.t @@ -129,13 +129,13 @@ SKIP: { foreach my $formal_item (sort keys %items) { if (exists $correct_C_responses{$formal_item}) { + my $correct = $correct_C_responses{$formal_item}; my $item = eval $items{$formal_item}; skip "This platform apparently doesn't support $formal_item", 1 if $@; my $result = test_Perl_langinfo($item); - if (defined $correct_C_responses{$formal_item}) { - is ($result, - $correct_C_responses{$formal_item}, - "Returns expected value ('$result') for $formal_item"); + if (defined $correct) { + is ($result, $correct, + "Returns expected value" . "('$correct') for $formal_item"); } else { ok (defined $result, |