Opening dirhandle DIR also as a file needs no warnings 'deprecated';

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

diff --git a/t/op/rand.t b/t/op/rand.t
old mode 100755 (executable)
new mode 100644 (file)
index 44bf0ff..eb29ff9
--- a/t/op/rand.t
+++ b/t/op/rand.t
@@ -17,15 +17,17 @@
 
 BEGIN {
     chdir "t" if -d "t";
-    @INC = '../lib';
+    @INC = qw(. ../lib);
 }
 
 use strict;
 use Config;
-use Test::More tests => 8;
 
+require "test.pl";
+plan(tests => 8);
 
-my $reps = 10000;      # How many times to try rand each time.
+
+my $reps = 15000;      # How many times to try rand each time.
                        # May be changed, but should be over 500.
                        # The more the better! (But slower.)