This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/locale.t: Allow turning on debug via env
authorKarl Williamson <public@khwilliamson.com>
Sat, 20 Jul 2013 17:37:55 +0000 (11:37 -0600)
committerKarl Williamson <public@khwilliamson.com>
Mon, 12 Aug 2013 19:51:22 +0000 (13:51 -0600)
Instead of having to edit the file to turn on debug mode, additionally
allow the use of an environment variable.  This makes it more
convenient to ask someone in the field to run the test.

lib/locale.t

index 1126a38..23cc261 100644 (file)
@@ -25,7 +25,7 @@ BEGIN {
 use strict;
 use feature 'fc';
 
-my $debug = 0;
+my $debug = $ENV{PERL_DEBUG_FULL_TEST} // 0;
 
 # Certain tests have been shown to be problematical for a few locales.  Don't
 # fail them unless at least this percentage of the tested locales fail.
@@ -1430,6 +1430,9 @@ foreach ($first_locales_test_number..$final_locales_test_number) {
                 print "# problem is not likely to be Perl's\n";
             }
         }
+        unless ($debug) {
+            print "#\nFor more details, rerun, with environment variable PERL_DEBUG_FULL_TEST=1\n";
+        }
        print "not ";
     }
     print "ok $_";