From: Michael G. Schwern <schwern@pobox.com>
Date: Mon, 3 Sep 2001 18:08:15 +0000 (-0400)
Subject: Re: A slightly better default seed?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=97458a6ff67bc5a554449c1abcbdf1ad7278b72f;p=p5sagit%2Fp5-mst-13.2.git

Re: A slightly better default seed?
Message-ID: <20010903180815.W9233@blackrider>

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

diff --git a/t/op/srand.t b/t/op/srand.t
index 5aadaa8..bbd0e54 100644
--- a/t/op/srand.t
+++ b/t/op/srand.t
@@ -3,7 +3,7 @@
 # Test srand.
 
 use strict;
-use Test::More tests => 3;
+use Test::More tests => 4;
 
 # Generate a load of random numbers.
 # int() avoids possible floating point error.
@@ -31,6 +31,19 @@ ok( !eq_array(\@first_run, \@second_run),
                                  'srand(), different arg, different rands' );
 
 
+# Check that srand() isn't affected by $_
+{   
+    local $_ = 42;
+    srand();
+    @first_run  = mk_rand;
+
+    srand(42);
+    @second_run = mk_rand;
+
+    ok( !eq_array(\@first_run, \@second_run),
+                       'srand(), no arg, not affected 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"`;