diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-08-02 15:22:39 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-08-13 14:36:19 +0200 |
| commit | 565064d1b0f5998285add90fd484b9191d00c520 (patch) | |
| tree | 6f8b8e54ce9ff92492a4d2a0fd62ae86fdafa6df /lib | |
| parent | 2154eca77956ce145743765bea9ce269e6227984 (diff) | |
| download | perl-565064d1b0f5998285add90fd484b9191d00c520.tar.gz | |
charnames.t: use srand's seed
Don't calculate our own seed
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/charnames.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index 4309a8379d..a77fec2f6c 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -6,10 +6,6 @@ use strict; # is generated twice to verify that in fact a warning did happen my @WARN; -# For randomized tests below. This seed was stolen from Test::Sims -my $seed = defined $ENV{PERL_TEST_CHARNAMES_SEED} ? $ENV{PERL_TEST_CHARNAMES_SEED} : (time ^ ($$ * $< * $()); - - BEGIN { unless(grep /blib/, @INC) { chdir 't' if -d 't'; @@ -778,7 +774,11 @@ is("\N{U+1D0C5}", "\N{BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS}"); # subset. For now, don't test with \N{}, to avoid filling the internal # cache at compile time; use vianame - srand($seed); + # For randomized tests below. + my $seed; + $seed = $ENV{PERL_TEST_CHARNAMES_SEED} if + defined $ENV{PERL_TEST_CHARNAMES_SEED}; + $seed = srand($seed); # There are the regular names, like "SPACE", plus the ones # that are algorithmically determinable, such as "CKJ UNIFIED |