Fix {%hash} ~~ %hash test

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

diff --git a/t/mro/recursion_c3.t b/t/mro/recursion_c3.t
index 60b174b..cc45250 100644 (file)
--- a/t/mro/recursion_c3.t
+++ b/t/mro/recursion_c3.t
@@ -9,11 +9,12 @@ BEGIN {
     }
 }
 
-use Test::More;
-use mro;
+require './test.pl';
 
-plan skip_all => "Your system has no SIGALRM" if !exists $SIG{ALRM};
-plan tests => 8;
+plan(skip_all => "Your system has no SIGALRM") if !exists $SIG{ALRM};
+plan(tests => 8);
+
+require mro;
 
 =pod
 
@@ -27,26 +28,37 @@ into an infinite loop
 # initial setup, everything sane
 {
     package K;
+    use mro 'c3';
     our @ISA = qw/J I/;
     package J;
+    use mro 'c3';
     our @ISA = qw/F/;
     package I;
+    use mro 'c3';
     our @ISA = qw/H F/;
     package H;
+    use mro 'c3';
     our @ISA = qw/G/;
     package G;
+    use mro 'c3';
     our @ISA = qw/D/;
     package F;
+    use mro 'c3';
     our @ISA = qw/E/;
     package E;
+    use mro 'c3';
     our @ISA = qw/D/;
     package D;
+    use mro 'c3';
     our @ISA = qw/A B C/;
     package C;
+    use mro 'c3';
     our @ISA = qw//;
     package B;
+    use mro 'c3';
     our @ISA = qw//;
     package A;
+    use mro 'c3';
     our @ISA = qw//;
 }