diff options
author | Karl Williamson <khw@cpan.org> | 2018-02-25 21:40:35 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-02-25 21:51:20 -0700 |
commit | 9fa1876f8c85a45e62dadb781de3c3a20361cd6f (patch) | |
tree | a321e7de034b7ad2f4308537a5ffb2c138077178 /ext/XS-APItest | |
parent | a34edee3eca4f0c0babf88354b9379449ed48296 (diff) | |
download | perl-9fa1876f8c85a45e62dadb781de3c3a20361cd6f.tar.gz |
APItest/t/locale.t: Add detail to test names
This detail can help in interpreting the results.
Diffstat (limited to 'ext/XS-APItest')
-rw-r--r-- | ext/XS-APItest/t/locale.t | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/ext/XS-APItest/t/locale.t b/ext/XS-APItest/t/locale.t index 342f673cd5..02fb918862 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"); } } } |