This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Increase the repetitions
authorMichael G. Schwern <schwern@pobox.com>
Mon, 3 Sep 2001 06:24:13 +0000 (02:24 -0400)
committerArtur Bergman <sky@nanisky.com>
Mon, 3 Sep 2001 09:30:02 +0000 (09:30 +0000)
Message-ID: <20010903062413.B9233@blackrider>

p4raw-id: //depot/perl@11837

t/op/rand.t

index e365e59..aa2421b 100755 (executable)
@@ -25,11 +25,7 @@ use Config;
 
 print "1..11\n";
 
-srand;                 # Shouldn't need this with 5.004...
-                       # But I'll include it now and test for
-                       # whether we needed it later.
-
-my $reps = 1000;       # How many times to try rand each time.
+my $reps = 10000;      # How many times to try rand each time.
                        # May be changed, but should be over 500.
                        # The more the better! (But slower.)