X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fc3_mro.t;h=5d6b306f0228d5059343266e8b2317cdf8a2e75f;hb=30fe793be0d7595dcd1b888ef281c03864f6cd1d;hp=d987544e93644a9581dfa0c3b7dbb764b3bf8117;hpb=ae29b412955743885e80350085167b54b69672da;p=catagits%2FCatalyst-Runtime.git diff --git a/t/c3_mro.t b/t/c3_mro.t index d987544..5d6b306 100644 --- a/t/c3_mro.t +++ b/t/c3_mro.t @@ -4,15 +4,13 @@ use warnings; use Test::More; require Catalyst; require Module::Pluggable::Object; -use MRO::Compat; + +eval "require Class::C3"; +plan skip_all => "This test requires Class::C3" if $@; # Get a list of all Catalyst:: packages in blib via M::P::O my @cat_mods; { - # problem with @INC on win32, see: - # http://rt.cpan.org/Ticket/Display.html?id=26452 - if ($^O eq 'MSWin32') { require Win32; Win32::GetCwd(); } - local @INC = grep {/blib/} @INC; @cat_mods = ( 'Catalyst', @@ -32,7 +30,7 @@ plan tests => scalar @cat_mods; # foreach my $cat_mod (@cat_mods) { eval " require $cat_mod "; - eval { mro::get_linear_isa($cat_mod, 'c3') }; - ok(!$@, "calculateMRO for $cat_mod: $@"); + eval { Class::C3::calculateMRO($cat_mod) }; + ok(!$@, "calculateMRO for $cat_mod"); }