diff options
| -rw-r--r-- | lib/charnames.t | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index eb7358c8e4..43f4857527 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -776,9 +776,15 @@ is("\N{U+1D0C5}", "\N{BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS}"); # For randomized tests below. my $seed; - $seed = $ENV{PERL_TEST_CHARNAMES_SEED} if - defined $ENV{PERL_TEST_CHARNAMES_SEED}; - $seed = srand($seed); + if (defined $ENV{PERL_TEST_CHARNAMES_SEED}) { + $seed = srand($ENV{PERL_TEST_CHARNAMES_SEED}); + if ($seed != $ENV{PERL_TEST_CHARNAMES_SEED}) { + die "srand returned '$seed' instead of '$ENV{PERL_TEST_CHARNAMES_SEED}'"; + }; + } + else { + $seed = srand; + } # We will look at the data grouped in "blocks" of the following # size. |