summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--NPTest.pm12
-rwxr-xr-xtest.pl.in2
2 files changed, 7 insertions, 7 deletions
diff --git a/NPTest.pm b/NPTest.pm
index 1cd89db..cbd78c8 100644
--- a/NPTest.pm
+++ b/NPTest.pm
@@ -18,7 +18,7 @@ use File::Basename;
18use IO::File; 18use IO::File;
19use Data::Dumper; 19use Data::Dumper;
20 20
21use Test; 21use Test::More;
22 22
23use vars qw($VERSION); 23use vars qw($VERSION);
24$VERSION = "1556."; # must be all one line, for MakeMaker 24$VERSION = "1556."; # must be all one line, for MakeMaker
@@ -625,12 +625,12 @@ sub testCmd {
625 chomp $output; 625 chomp $output;
626 $object->output($output); 626 $object->output($output);
627 627
628 my ($pkg, $file, $line) = caller(0);
629 diag("Testing: $command", $/);
628 if ($ENV{'NPTEST_DEBUG'}) { 630 if ($ENV{'NPTEST_DEBUG'}) {
629 my ($pkg, $file, $line) = caller(0); 631 diag("testCmd: Called from line $line in $file", $/);
630 print "testCmd: Called from line $line in $file", $/; 632 diag("Output: ", $object->output, $/);
631 print "Testing: $command", $/; 633 diag("Return code: ", $object->return_code, $/);
632 print "Output: ", $object->output, $/;
633 print "Return code: ", $object->return_code, $/;
634 } 634 }
635 635
636 return $object; 636 return $object;
diff --git a/test.pl.in b/test.pl.in
index a022818..3834d3c 100755
--- a/test.pl.in
+++ b/test.pl.in
@@ -44,6 +44,6 @@ if ( ! scalar( @tests ) )
44 44
45use Test::Harness; 45use Test::Harness;
46 46
47#$Test::Harness::verbose=1; 47$Test::Harness::verbose=1;
48 48
49runtests( @tests ); 49runtests( @tests );