diff --git a/ext/XS-APItest/t/locale.t b/ext/XS-APItest/t/locale.t index 342f673cd558..02fb91886264 100644 --- a/ext/XS-APItest/t/locale.t +++ b/ext/XS-APItest/t/locale.t @@ -131,14 +131,15 @@ SKIP: { if (exists $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 (test_Perl_langinfo($item), + is ($result, $correct_C_responses{$formal_item}, - "Returns expected value for $formal_item"); + "Returns expected value ('$result') for $formal_item"); } else { - ok (defined test_Perl_langinfo($item), - "Returns a value for $formal_item"); + ok (defined $result, + "Returns a value (in this case '$result') for $formal_item"); } } }