}
}
-use Test::More;
+require './test.pl';
{
package MCTest::Base;
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);