From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 3 Sep 2001 18:54:51 +0000 (+0000)
Subject: Remove the tests that assume something about
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4d300a87e32917302f666ed22b82aaea01da6df3;p=p5sagit%2Fp5-mst-13.2.git

Remove the tests that assume something about
calling srand() without arguments multiple times.

p4raw-id: //depot/perl@11850
---

diff --git a/t/op/srand.t b/t/op/srand.t
index b9b8ebc..5aadaa8 100644
--- a/t/op/srand.t
+++ b/t/op/srand.t
@@ -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 @@ ok( !eq_array(\@first_run, \@second_run),
                                  '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"`;