Change 11850 by jhi@alpha on 2001/09/03 18:54:51
Remove the tests that assume something about
calling srand() without arguments multiple times.
Affected files ...
... //depot/perl/t/op/srand.t#2 edit
Differences ...
==== //depot/perl/t/op/srand.t#2 (text) ====
Index: perl/t/op/srand.t
--- perl/t/op/srand.t.~1~ Mon Sep 3 13:00:05 2001
+++ perl/t/op/srand.t Mon Sep 3 13:00:05 2001
@@ -3,7 +3,7 @@
# Test srand.
use strict;
-use Test::More tests => 5;
+use Test::More tests => 3;
# Generate a load of random numbers.
# int() avoids possible floating point error.
@@ -31,31 +31,6 @@
'srand(), different arg, different rands' );
-# Check that srand() with no args provides different seeds.
-srand();
-@first_run = mk_rand;
-
-srand();
-@second_run = mk_rand;
-
-ok( !eq_array(\@first_run, \@second_run), 'srand(), no arg, different rands');
-
-
-# Check that srand() isn't effected by $_
-{
- local $_ = 42;
- srand();
- @first_run = mk_rand;
-
- srand();
- @second_run = mk_rand;
-
- ok( !eq_array(\@first_run, \@second_run),
- 'srand(), no arg, not effected by $_');
-}
-
-
-
# This test checks whether Perl called srand for you.
@first_run = `$^X -le "print int rand 100 for 1..100"`;
@second_run = `$^X -le "print int rand 100 for 1..100"`;
End of Patch.
