Explicitly check that our $_; is special, and forced to main::

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

diff --git a/t/op/sleep.t b/t/op/sleep.t
old mode 100755 (executable)
new mode 100644 (file)
index c2684ad..3f5bbe0
--- a/t/op/sleep.t
+++ b/t/op/sleep.t
@@ -1,8 +1,15 @@
 #!./perl
 
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = qw(. ../lib);
+}
+
+require "test.pl";
+plan( tests => 4 );
+
 use strict;
 use warnings;
-use Test::More tests=>4;
 
 my $start = time;
 my $sleep_says = sleep 3;