Use t/test.pl's note() function

... rather than print(), for informational statements.

1 files changed, 5 insertions, 5 deletions

diff --git a/t/io/fs.t b/t/io/fs.t
index f35b907d5d..d5aa336393 100644
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -253,7 +253,7 @@ check_utime_result();
 
 utime undef, undef, 'b';
 ($atime,$mtime) = (stat 'b')[8,9];
-print "# utime undef, undef --> $atime, $mtime\n";
+note("# utime undef, undef --> $atime, $mtime");
 isnt($atime, 500000000, 'atime');
 isnt($mtime, 500000000 + $delta, 'mtime');
 
@@ -289,18 +289,18 @@ sub check_utime_result {
 	    skip ("# TODO - hit VOS bug posix-2055 - access time does not follow POSIX rules for an open file.", 2);
      }
 
-	print "# atime - $atime  mtime - $mtime  delta - $delta\n";
+	note("# atime - $atime  mtime - $mtime  delta - $delta");
 	if($atime == 500000000 && $mtime == 500000000 + $delta) {
 	    pass('atime');
 	    pass('mtime');
 	}
 	else {
 	    if ($^O =~ /\blinux\b/i) {
-		print "# Maybe stat() cannot get the correct atime, ".
-		    "as happens via NFS on linux?\n";
+		note("# Maybe stat() cannot get the correct atime, ".
+		    "as happens via NFS on linux?");
 		$foo = (utime 400000000,500000000 + 2*$delta,'b');
 		my ($new_atime, $new_mtime) = (stat('b'))[8,9];
-		print "# newatime - $new_atime  nemtime - $new_mtime\n";
+		note("# newatime - $new_atime  nemtime - $new_mtime");
 		if ($new_atime == $atime && $new_mtime - $mtime == $delta) {
 		    pass("atime - accounted for possible NFS/glibc2.2 bug on linux");
 		    pass("mtime - accounted for possible NFS/glibc2.2 bug on linux");