From 565064d1b0f5998285add90fd484b9191d00c520 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Mon, 2 Aug 2010 15:22:39 -0600 Subject: charnames.t: use srand's seed Don't calculate our own seed --- lib/charnames.t | 10 +++++----- 1 file 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 -- cgit v1.2.1