From: James E. Keenan <jkeenan@cpan.org>
Date: Sun, 4 Apr 2010 13:10:06 +0000 (-0400)
Subject: Add messages to 3 tests which lacked them.
X-Git-Tag: accepted/trunk/20130322.191538~3330^2~91
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=8217e9e15a72ff947330679b526c95db1f49674f;p=platform%2Fupstream%2Fperl.git

Add messages to 3 tests which lacked them.
---

diff --git a/dist/ExtUtils-ParseXS/t/002-more.t b/dist/ExtUtils-ParseXS/t/002-more.t
index f8a7c2a..2bec720 100644
--- a/dist/ExtUtils-ParseXS/t/002-more.t
+++ b/dist/ExtUtils-ParseXS/t/002-more.t
@@ -37,7 +37,7 @@ SKIP: {
   skip "no compiler available", 2
     if ! $b->have_compiler;
   $obj_file = $b->compile( source => $source_file );
-  ok $obj_file;
+  ok $obj_file, "ExtUtils::CBuilder::compile() returned true value";
   ok -e $obj_file, "Make sure $obj_file exists";
 }
 
@@ -46,7 +46,7 @@ SKIP: {
     if !$b->have_compiler || !$Config{usedl};
   my $module = 'XSMore';
   $lib_file = $b->link( objects => $obj_file, module_name => $module );
-  ok $lib_file;
+  ok $lib_file, "ExtUtils::CBuilder::link() returned true value";
   ok -e $lib_file,  "Make sure $lib_file exists";
 
   eval{
@@ -57,7 +57,7 @@ SKIP: {
 
     sub new{ bless {}, shift }
   };
-  is $@, '';
+  is $@, '', "No error message recorded, as expected";
   is ExtUtils::ParseXS::report_error_count(), 0, 'ExtUtils::ParseXS::errors()';
 
   is $XSMore::boot_ok, 100, 'the BOOT keyword';