diff options
| -rw-r--r-- | NPTest.pm | 12 | ||||
| -rwxr-xr-x | test.pl.in | 2 |
2 files changed, 7 insertions, 7 deletions
| @@ -18,7 +18,7 @@ use File::Basename; | |||
| 18 | use IO::File; | 18 | use IO::File; |
| 19 | use Data::Dumper; | 19 | use Data::Dumper; |
| 20 | 20 | ||
| 21 | use Test; | 21 | use Test::More; |
| 22 | 22 | ||
| 23 | use vars qw($VERSION); | 23 | use 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; |
| @@ -44,6 +44,6 @@ if ( ! scalar( @tests ) ) | |||
| 44 | 44 | ||
| 45 | use Test::Harness; | 45 | use Test::Harness; |
| 46 | 46 | ||
| 47 | #$Test::Harness::verbose=1; | 47 | $Test::Harness::verbose=1; |
| 48 | 48 | ||
| 49 | runtests( @tests ); | 49 | runtests( @tests ); |
