فهرست منبع

Make output of "make test" more verbose

This is intended to make error fixing based on tinderbox output
easier.
Matthias Eble 17 سال پیش
والد
کامیت
2e7c3ac75a
2فایلهای تغییر یافته به همراه7 افزوده شده و 7 حذف شده
  1. 6 6
      NPTest.pm
  2. 1 1
      test.pl.in

+ 6 - 6
NPTest.pm

@@ -18,7 +18,7 @@ use File::Basename;
 use IO::File;
 use IO::File;
 use Data::Dumper;
 use Data::Dumper;
 
 
-use Test;
+use Test::More;
 
 
 use vars qw($VERSION);
 use vars qw($VERSION);
 $VERSION = "1556."; # must be all one line, for MakeMaker
 $VERSION = "1556."; # must be all one line, for MakeMaker
@@ -625,12 +625,12 @@ sub testCmd {
 	chomp $output;
 	chomp $output;
 	$object->output($output);
 	$object->output($output);
 
 
+	my ($pkg, $file, $line) = caller(0);
+	diag("Testing: $command", $/);
 	if ($ENV{'NPTEST_DEBUG'}) {
 	if ($ENV{'NPTEST_DEBUG'}) {
-		my ($pkg, $file, $line) = caller(0);
-		print "testCmd: Called from line $line in $file", $/;
-		print "Testing: $command", $/;
-		print "Output:  ", $object->output, $/;
-		print "Return code: ", $object->return_code, $/;
+		diag("testCmd: Called from line $line in $file", $/);
+		diag("Output:  ", $object->output, $/);
+		diag("Return code: ", $object->return_code, $/);
 	}
 	}
 
 
 	return $object;
 	return $object;

+ 1 - 1
test.pl.in

@@ -44,6 +44,6 @@ if ( ! scalar( @tests ) )
 
 
 use Test::Harness;
 use Test::Harness;
 
 
-#$Test::Harness::verbose=1;
+$Test::Harness::verbose=1;
 
 
 runtests( @tests );
 runtests( @tests );