The folks on [EMAIL PROTECTED] were musing that the rand() tests are documented to fail about 1% of the time. Now that we're smoke testing, we're easily running it a few dozen times a day and that 1% is going to start showing up.
So we simply push off the problem a bit by increasing the # of reps by an order of magnitude. This increases the time to run the test by about a half second on my machine (G3/266) so no biggie. Some statistics nut should recalculate the hints in the test based on this change. I also stripped the now pointless srand call. rand() should work fine without it. --- t/op/rand.t 2001/09/03 10:03:33 1.1 +++ t/op/rand.t 2001/09/03 10:03:59 @@ -25,11 +25,7 @@ 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.) -- Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/ Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One "Let's face it," said bearded Rusty Simmons, opening a can after the race. "This is a good excuse to drink some beer." At 10:30 in the morning? "Well, it's past noon in Dublin," said teammate Mike [Joseph] Schwern. "It's our duty." -- "Sure, and It's a Great Day for Irish Runners" Newsday, Sunday, March 20, 1988