Sfoglia il codice sorgente

Make output of "make test" more verbose

This is intended to make error fixing based on tinderbox output
easier.
Matthias Eble 17 anni fa
parent
commit
2e7c3ac75a
2 ha cambiato i file con 7 aggiunte e 7 eliminazioni
  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 );