defined @array and defined %hash need no warnings 'deprecated';

[p5sagit/p5-mst-13.2.git] / t / op / srand.t

diff --git a/t/op/srand.t b/t/op/srand.t
index b9b8ebc..5753a5d 100644 (file)
--- a/t/op/srand.t
+++ b/t/op/srand.t
@@ -1,9 +1,16 @@
 #!./perl -w
 
+BEGIN {
+    chdir "t" if -d "t";
+    @INC = qw(. ../lib);
+}
+
 # Test srand.
 
 use strict;
-use Test::More tests => 5;
+
+require "test.pl";
+plan(tests => 4);
 
 # Generate a load of random numbers.
 # int() avoids possible floating point error.
@@ -31,33 +38,22 @@ 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 $_
-{
+# Check that srand() isn't affected by $_
+{   
     local $_ = 42;
     srand();
     @first_run  = mk_rand;
 
-    srand();
+    srand(42);
     @second_run = mk_rand;
 
-    ok( !eq_array(\@first_run, \@second_run), 
-                       'srand(), no arg, not effected by $_');
+    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"`;
+sleep(1); # in case our srand() is too time-dependent
 @second_run = `$^X -le "print int rand 100 for 1..100"`;
 
 ok( !eq_array(\@first_run, \@second_run), 'srand() called automatically');