This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
uni/fold.t: Add details to some test names
authorKarl Williamson <public@khwilliamson.com>
Thu, 5 Apr 2012 16:18:15 +0000 (10:18 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sat, 2 Jun 2012 14:29:19 +0000 (08:29 -0600)
t/uni/fold.t

index 483a43d..cd27f8e 100644 (file)
@@ -336,11 +336,11 @@ foreach my $test_ref (@CF) {
         my ($simple_lc, $simple_tc, $simple_uc, $simple_fc) = @{$_}[1, 2, 3, 7];
         my ($orig, $lower, $titlecase, $upper, $fc_turkic, $fc_full) = @{$_}[0,4,5,6,8,9];
 
-        is( fc($orig), $fc_full, 'fc works' );
+        is( fc($orig), $fc_full, "fc('$orig') returns '$fc_full'" );
         is( "\F$orig", $fc_full, '\F works' );
-        is( lc($orig), $lower,   'lc works' );
+        is( lc($orig), $lower,   "lc('$orig') returns '$lower'" );
         is( "\L$orig", $lower,   '\L works' );
-        is( uc($orig), $upper,   'uc works' );
+        is( uc($orig), $upper,   "uc('$orig') returns '$upper'" );
         is( "\U$orig", $upper,   '\U works' );
     }
 }