Explorar o código

Make output of "make test" more verbose

This is intended to make error fixing based on tinderbox output
easier.
Matthias Eble %!s(int64=16) %!d(string=hai) anos
pai
achega
2e7c3ac75a
Modificáronse 2 ficheiros con 7 adicións e 7 borrados
  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 );