From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 12 Nov 2007 16:13:58 +0000 (-0500)
Subject: t/comp/opsubs.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=520974d5b0e293a154c61abceaf26077c8cafbd8;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 }