This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/charnames.t: Move initialization line
authorKarl Williamson <khw@cpan.org>
Wed, 19 Feb 2020 18:06:23 +0000 (11:06 -0700)
committerKarl Williamson <khw@cpan.org>
Thu, 20 Feb 2020 01:45:56 +0000 (18:45 -0700)
to a more intuitive spot in the file

lib/charnames.t

index b5fe7ed..2bcf13d 100644 (file)
@@ -5,6 +5,8 @@ use strict;
 # selection of names is tested, a higher percentage of regular names is tested
 # than algorithmically-determined names.
 
+my $run_slow_tests = $ENV{PERL_RUN_SLOW_TESTS} || 0;
+
 my $RUN_SLOW_TESTS_EVERY_CODE_POINT = 100;
 
 # If $ENV{PERL_RUN_SLOW_TESTS} is at least 1 and less than the number above,
@@ -987,8 +989,6 @@ is("\N{U+1D0C5}", "\N{BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS}", 'V
         $seed = srand;
     }
 
-    my $run_slow_tests = $ENV{PERL_RUN_SLOW_TESTS} || 0;
-
     # We will look at the data grouped in "blocks" of the following
     # size.
     my $block_size_bits = 8;   # above 16 is not sensible