X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fc3_mro.t;h=57c3bdb7c2c9ebd05a810cf2922a3146b94a9089;hb=15f0ede8ee33bc9b0c002221a8e62f59e8b7b7e2;hp=e54645c14e29daf75de2399c43643a7e1da2bb14;hpb=5fb67d522575fa73fb6e291dd6d2fce8a69bf9e3;p=catagits%2FCatalyst-Runtime.git diff --git a/t/c3_mro.t b/t/c3_mro.t index e54645c..57c3bdb 100644 --- a/t/c3_mro.t +++ b/t/c3_mro.t @@ -11,9 +11,13 @@ 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', + 'Catalyst', Module::Pluggable::Object->new(search_path => ['Catalyst'])->plugins, ); } @@ -31,6 +35,6 @@ plan tests => scalar @cat_mods; foreach my $cat_mod (@cat_mods) { eval " require $cat_mod "; eval { Class::C3::calculateMRO($cat_mod) }; - ok(!$@, "calculateMRO for $cat_mod"); + ok(!$@, "calculateMRO for $cat_mod: $@"); }