From 9fa1876f8c85a45e62dadb781de3c3a20361cd6f Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sun, 25 Feb 2018 21:40:35 -0700 Subject: [PATCH] APItest/t/locale.t: Add detail to test names This detail can help in interpreting the results. --- ext/XS-APItest/t/locale.t | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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"); } } }