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 16 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 Data::Dumper;
 
-use Test;
+use Test::More;
 
 use vars qw($VERSION);
 $VERSION = "1556."; # must be all one line, for MakeMaker
@@ -625,12 +625,12 @@ sub testCmd {
 	chomp $output;
 	$object->output($output);
 
+	my ($pkg, $file, $line) = caller(0);
+	diag("Testing: $command", $/);
 	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;

+ 1 - 1
test.pl.in

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