Don't use Test::More in core tests (at least, where

[p5sagit/p5-mst-13.2.git] / t / mro / method_caching.t

diff --git a/t/mro/method_caching.t b/t/mro/method_caching.t
index 8013a0a..dd70da6 100644 (file)
--- a/t/mro/method_caching.t
+++ b/t/mro/method_caching.t
@@ -12,7 +12,7 @@ BEGIN {
     }
 }
 
-use Test::More;
+require './test.pl';
 
 {
     package MCTest::Base;
@@ -40,7 +40,7 @@ my @testsubs = (
     sub { *XYZ = sub { $_[1]+8 }; ${MCTest::Base::}{foo} = \&XYZ; is(MCTest::Derived->foo(0), 8); },
 );
 
-plan tests => scalar(@testsubs) + 1;
+plan(tests => scalar(@testsubs) + 1);
 
 is(MCTest::Derived->foo(0), 1);
 $_->() for (@testsubs);