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 5429315..cc45250 100644 (file)
--- a/t/mro/recursion_c3.t
+++ b/t/mro/recursion_c3.t
@@ -14,6 +14,8 @@ require './test.pl';
 plan(skip_all => "Your system has no SIGALRM") if !exists $SIG{ALRM};
 plan(tests => 8);
 
+require mro;
+
 =pod
 
 These are like the 010_complex_merge_classless test,
@@ -26,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//;
 }