This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
APItest/t/locale.t: Add detail to test names
authorKarl Williamson <khw@cpan.org>
Mon, 26 Feb 2018 04:40:35 +0000 (21:40 -0700)
committerKarl Williamson <khw@cpan.org>
Mon, 26 Feb 2018 04:51:20 +0000 (21:51 -0700)
This detail can help in interpreting the results.

ext/XS-APItest/t/locale.t

index 342f673..02fb918 100644 (file)
@@ -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");
             }
         }
     }