summaryrefslogtreecommitdiff
path: root/ext/XS-APItest
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2018-02-25 21:40:35 -0700
committerKarl Williamson <khw@cpan.org>2018-02-25 21:51:20 -0700
commit9fa1876f8c85a45e62dadb781de3c3a20361cd6f (patch)
treea321e7de034b7ad2f4308537a5ffb2c138077178 /ext/XS-APItest
parenta34edee3eca4f0c0babf88354b9379449ed48296 (diff)
downloadperl-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.t9
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");
}
}
}