This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
charnames.t: Change message to fit in 80 columns
authorKarl Williamson <public@khwilliamson.com>
Mon, 2 Aug 2010 22:40:28 +0000 (16:40 -0600)
committerRafael Garcia-Suarez <rgs@consttype.org>
Fri, 13 Aug 2010 12:36:20 +0000 (14:36 +0200)
This is an important message.  Better not to wrap it.

lib/charnames.t

index f41d5a3..75a3aac 100644 (file)
@@ -938,9 +938,9 @@ is("\N{U+1D0C5}", "\N{BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS}");
     unless ($all_pass) {
         diag(<<END
 Not all tests succeeded.  Because testing every single Unicode code
     unless ($all_pass) {
         diag(<<END
 Not all tests succeeded.  Because testing every single Unicode code
-point would take too long, $0 tests a random subset every run.  In
-order to reproduce this failure exactly, the same seed must be used.
-Save this seed!!: $seed
+point would take too long, $0
+tests a random subset every run.  In order to reproduce this failure exactly,
+the same seed must be used.  Save this seed!!: $seed
 
 Setting the environment variable PERL_TEST_CHARNAMES_SEED with
 $seed
 
 Setting the environment variable PERL_TEST_CHARNAMES_SEED with
 $seed