regmatch(): do nextchr=*locinput at top of loop

[perl5.git] / t / mro / dbic_c3.t

diff --git a/t/mro/dbic_c3.t b/t/mro/dbic_c3.t
index a59f334..51d8784 100644 (file)
--- 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');