t/comp/opsubs.t

Message-ID: <4738C216.2040302@iki.fi>

p4raw-id: //depot/perl@32294

diff --git a/t/comp/opsubs.t b/t/comp/opsubs.t
index 3faca21..a9b7ca8 100644 (file)
--- a/t/comp/opsubs.t
+++ b/t/comp/opsubs.t
@@ -1,9 +1,20 @@
 #!./perl -T
 
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
 use warnings;
 use strict;
 $|++;
 
+require "./test.pl";
+
+plan(tests => 36);
+
+use vars qw($TODO);
+
 =pod
 
 Even if you have a C<sub q{}>, calling C<q()> will be parsed as the
@@ -12,8 +23,6 @@ This test verifies this behavior for nine different operators.
 
 =cut
 
-use Test::More tests => 36;
-
 sub m  { return "m-".shift }
 sub q  { return "q-".shift }
 sub qq { return "qq-".shift }