Skip to content
Browse files

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

  • Loading branch information...
1 parent 3ea9549 commit 013f0a187f0a52edc94488ed1afbed71a6d3efd5 Matthias Eble committed Jun 16, 2009
Showing with 4 additions and 4 deletions.
  1. +4 −4 NPTest.pm
View
8 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;

0 comments on commit 013f0a1

Please sign in to comment.
Something went wrong with that request. Please try again.