This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Take a larger margin to prevent 'X' failures in smokes
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Thu, 23 Jun 2005 18:43:42 +0000 (18:43 +0000)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Thu, 23 Jun 2005 18:43:42 +0000 (18:43 +0000)
I was able to get warnings on HP-UX 10.20 every 2nd to 3rd run
when reps was still 10000. With 15000 I didn't get a single warning

p4raw-id: //depot/perl@24964

t/op/rand.t

index 060d46a..eb29ff9 100755 (executable)
@@ -27,7 +27,7 @@ require "test.pl";
 plan(tests => 8);
 
 
-my $reps = 10000;      # How many times to try rand each time.
+my $reps = 15000;      # How many times to try rand each time.
                        # May be changed, but should be over 500.
                        # The more the better! (But slower.)