Add tests for the C<my $x if foo> deprecation, and change the

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

diff --git a/t/op/cproto.t b/t/op/cproto.t
index 26850c0..8b6bad1 100644 (file)
--- a/t/op/cproto.t
+++ b/t/op/cproto.t
@@ -1,7 +1,14 @@
 #!./perl
 # Tests to ensure that we don't unexpectedly change prototypes of builtins
 
-use Test::More tests => 234;
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
+BEGIN { require './test.pl'; }
+plan tests => 234;
+
 while (<DATA>) {
     chomp;
     my ($keyword, $proto) = split;