diff --git a/NPTest.pm b/NPTest.pm
index d4542ddc2cc5348c4b41a1b13b3e879b6e53be30..54a535e77808b167741ba30ca744fcb3266acc5c 100644 (file)
--- a/NPTest.pm
+++ b/NPTest.pm
use Test;
use vars qw($VERSION);
use Test;
use vars qw($VERSION);
-$VERSION = do { my @r = (q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; # must be all one line, for MakeMaker
+$VERSION = "1556."; # must be all one line, for MakeMaker
=head1 NAME
=head1 NAME
chomp $output;
$object->output($output);
chomp $output;
$object->output($output);
+ my ($pkg, $file, $line) = caller(0);
+ print "Testing: $command", $/;
if ($ENV{'NPTEST_DEBUG'}) {
if ($ENV{'NPTEST_DEBUG'}) {
- my ($pkg, $file, $line) = caller(0);
print "testCmd: Called from line $line in $file", $/;
print "testCmd: Called from line $line in $file", $/;
- print "Testing: $command", $/;
print "Output: ", $object->output, $/;
print "Return code: ", $object->return_code, $/;
}
print "Output: ", $object->output, $/;
print "Return code: ", $object->return_code, $/;
}