X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fmro%2Fdbic_c3.t;h=51d878464f4b508ae2e4c50bc2efee894a6174e1;hb=a2309040b8fe324ae09c064137c624b4292d93c1;hp=a59f334fb463a2aaa85d2ad82f75ae5ff82e2d2a;hpb=e1a479c5e0c08fb10925261f03573261c69ca0dc;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/mro/dbic_c3.t b/t/mro/dbic_c3.t
index a59f334..51d8784 100644
--- a/t/mro/dbic_c3.t
+++ b/t/mro/dbic_c3.t
@@ -2,14 +2,8 @@
 
 use strict;
 use warnings;
-BEGIN {
-    unless (-d 'blib') {
-        chdir 't' if -d 't';
-        @INC = '../lib';
-    }
-}
 
-use Test::More tests => 1;
+require q(./test.pl); plan(tests => 1);
 
 =pod
 
@@ -96,7 +90,7 @@ The xx:: prefixes are just to be sure these bogus declarations never stomp on re
     package xx::DBIx::Class::Relationship::CascadeActions; our @ISA = (); use mro 'c3';
 }
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('xx::DBIx::Class::Core'),
     [qw/
         xx::DBIx::Class::Core
@@ -121,5 +115,5 @@ is_deeply(
         xx::DBIx::Class
         xx::DBIx::Class::Componentised
         xx::Class::Data::Accessor
-    /],
-    '... got the right C3 merge order for xx::DBIx::Class::Core');
+    /]
+), '... got the right C3 merge order for xx::DBIx::Class::Core');