perl: more kind testing messages

This commit is contained in:
gfx 2010-09-18 14:51:17 +09:00
parent e6f6aba207
commit 4902bed409

View File

@ -3,4 +3,5 @@ use warnings;
use Test::More tests => 1;
use_ok 'Data::MessagePack';
diag ( $INC{'Data/MessagePack/PP.pm'} ? 'PP' : 'XS' );
diag ( "Testing Data::MessagePack/$Data::MessagePack::VERSION (",
$INC{'Data/MessagePack/PP.pm'} ? 'PP' : 'XS', ")" );