[Nagiosplug-checkins] SF.net SVN: nagiosplug:[2224] nagiosplug/trunk

dermoth at users.sourceforge.net dermoth at users.sourceforge.net
Mon Jun 15 21:47:27 CEST 2009


Revision: 2224
          http://nagiosplug.svn.sourceforge.net/nagiosplug/?rev=2224&view=rev
Author:   dermoth
Date:     2009-06-15 19:47:27 +0000 (Mon, 15 Jun 2009)

Log Message:
-----------
Make output of "make test" more verbose

This is intended to make error fixing based on tinderbox output
easier.

From: Matthias Eble <psychotrahe at gmx.de>

Modified Paths:
--------------
    nagiosplug/trunk/NPTest.pm
    nagiosplug/trunk/test.pl.in

Modified: nagiosplug/trunk/NPTest.pm
===================================================================
--- nagiosplug/trunk/NPTest.pm	2009-06-14 21:47:15 UTC (rev 2223)
+++ nagiosplug/trunk/NPTest.pm	2009-06-15 19:47:27 UTC (rev 2224)
@@ -18,7 +18,7 @@
 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 @@
 	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;

Modified: nagiosplug/trunk/test.pl.in
===================================================================
--- nagiosplug/trunk/test.pl.in	2009-06-14 21:47:15 UTC (rev 2223)
+++ nagiosplug/trunk/test.pl.in	2009-06-15 19:47:27 UTC (rev 2224)
@@ -44,6 +44,6 @@
 
 use Test::Harness;
 
-#$Test::Harness::verbose=1;
+$Test::Harness::verbose=1;
 
 runtests( @tests );


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.




More information about the Commits mailing list