Преглед на файлове

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 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 );