Lines Matching refs:seed
25 # If you get a failure here, please re-run the test with the printed seed
26 # value as input "perl t/mbi_rand.t seed" and send me the output
28 my $seed = ($#ARGV == 0) ? $ARGV[0] : int(rand(1165537));
29 print "# seed: $seed\n"; srand($seed);
64 print "# seed $seed, ". join(' ',Math::BigInt::Calc->_base_len()),"\n".
67 print "# seed: $seed, \$ADB * \$B / \$B = ", $ADB * $B / $B, " != $ADB (\$B=$B)\n"
73 print "# seed $seed, ". join(' ',Math::BigInt::Calc->_base_len()),"\n".
78 print "# seed $seed, \$ADB * \$A / \$A = ", $ADB * $A / $A, " != $ADB (\$A=$A)\n"