Non-VMS-fixed and Win32-skipped version of

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

diff --git a/t/op/srand.t b/t/op/srand.t
index bbd0e54..e809673 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 => 4;
+
+require "test.pl";
+plan(tests => 4);
 
 # Generate a load of random numbers.
 # int() avoids possible floating point error.