Switch back to "use Test" and plain prints instead of diag()

diff --git a/NPTest.pm b/NPTest.pm
index 8ea5af8c3bb28ec930ae81ded686859e66adae7f..54a535e77808b167741ba30ca744fcb3266acc5c 100644 (file)
--- a/NPTest.pm
+++ b/NPTest.pm
@@ -18,7 +18,7 @@ use File::Basename;
 use IO::File;
 use Data::Dumper;
 
-use Test::More;
+use Test;
 
 use vars qw($VERSION);
 $VERSION = "1556."; # must be all one line, for MakeMaker
@@ -628,9 +628,9 @@ sub testCmd {
        my ($pkg, $file, $line) = caller(0);
        print "Testing: $command", $/;
        if ($ENV{'NPTEST_DEBUG'}) {
-               diag("testCmd: Called from line $line in $file", $/);
-               diag("Output:  ", $object->output, $/);
-               diag("Return code: ", $object->return_code, $/);
+               print "testCmd: Called from line $line in $file", $/;
+               print "Output:  ", $object->output, $/;
+               print "Return code: ", $object->return_code, $/;
        }
 
        return $object;