X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F000-load.t;h=5508bce2f8bbf75a237a60b79eebf4dc607d89d3;hb=d468e99669162209fc407bc22706a91b8675dbbc;hp=720ceeb4e26c69eaadd0e3aa23de21717e52fd77;hpb=94fc8b3951e11b1f438c88fddff5b91d398b79fa;p=gitmo%2FMouse.git diff --git a/t/000-load.t b/t/000-load.t index 720ceeb..5508bce 100644 --- a/t/000-load.t +++ b/t/000-load.t @@ -9,16 +9,24 @@ require_ok 'Mouse::Role'; no warnings 'uninitialized'; -diag "Testing Mouse/$Mouse::VERSION (", exists $INC{'Mouse/PurePerl.pm'} ? 'Pure Perl' : 'XS', ")"; +my $xs = !exists( $INC{'Mouse/PuprePerl.pm'} ); -diag "Soft dependency versions:"; +diag "Testing Mouse/$Mouse::VERSION (", $xs ? 'XS' : 'Pure Perl', ")"; -eval{ require MRO::Compat }; -diag " MRO::Compat: $MRO::Compat::VERSION"; +diag "Soft dependency versions:"; eval { require Moose }; diag " Class::MOP: $Class::MOP::VERSION"; diag " Moose: $Moose::VERSION"; -eval { require Class::Method::Modifiers::Fast }; -diag " Class::Method::Modifiers::Fast: $Class::Method::Modifiers::Fast::VERSION"; +if($xs) { # display info for CPAN testers + if(open my $in, '<', 'Makefile') { + diag 'xsubpp settings:'; + while(<$in>) { + if(/^XSUBPP/) { + diag $_; + } + } + } +} +