소스 검색

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

Matthias Eble 17 년 전
부모
커밋
013f0a187f
1개의 변경된 파일4개의 추가작업 그리고 4개의 파일을 삭제
  1. 4 4
      NPTest.pm

+ 4 - 4
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;