Change 11841 by sky@sky-lab on 2001/09/03 11:04:15
Forgot to add a file with Change #11840
Affected files ...
... //depot/perl/t/op/srand.t#1 add
Differences ...
==== //depot/perl/t/op/srand.t#1 (text) ====
Index: perl/t/op/srand.t
--- perl/t/op/srand.t.~1~ Mon Sep 3 05:15:05 2001
+++ perl/t/op/srand.t Mon Sep 3 05:15:05 2001
@@ -0,0 +1,63 @@
+#!./perl -w
+
+# Test srand.
+
+use strict;
+use Test::More tests => 5;
+
+# Generate a load of random numbers.
+# int() avoids possible floating point error.
+sub mk_rand { map int rand 10000, 1..100; }
+
+
+# Check that rand() is deterministic.
+srand(1138);
+my @first_run = mk_rand;
+
+srand(1138);
+my @second_run = mk_rand;
+
+ok( eq_array(\@first_run, \@second_run), 'srand(), same arg, same rands' );
+
+
+# Check that different seeds provide different random numbers
+srand(31337);
+@first_run = mk_rand;
+
+srand(1138);
+@second_run = mk_rand;
+
+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"`;
+
+ok( !eq_array(\@first_run, \@second_run), 'srand() called automatically');
End of Patch.
