This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/exec.t: Use diag for errors, so not swallowed
authorKarl Williamson <khw@cpan.org>
Thu, 28 Dec 2017 04:32:33 +0000 (21:32 -0700)
committerKarl Williamson <khw@cpan.org>
Thu, 28 Dec 2017 04:50:00 +0000 (21:50 -0700)
This test was just doing a printf to STDOUT.

t/op/exec.t

index d696163..ccb640f 100644 (file)
@@ -114,7 +114,7 @@ unless( ok($rc == 255 << 8 or $rc == -1 or $rc == 256 or $rc == 512) ) {
 unless ( ok( $! == 2  or  $! =~ /\bno\b.*\bfile/i or  
              $! == 13 or  $! =~ /permission denied/i or
              $! == 22 or  $! =~ /invalid argument/i  ) ) {
-    printf "# \$! eq %d, '%s'\n", $!, $!;
+    diag sprintf "\$! eq %d, '%s'\n", $!, $!;
 }
 
 
@@ -181,7 +181,7 @@ TODO: {
     local $! = 0;
     ok !exec(), 'empty exec LIST fails';
     ok $! == 2 || $! =~ qr/\bno\b.*\bfile\b/i, 'errno = ENOENT'
-        or printf "# \$! eq %d, '%s'\n", $!, $!;
+        or diag sprintf "\$! eq %d, '%s'\n", $!, $!;
 
 }
 {
@@ -189,7 +189,7 @@ TODO: {
     my $err = $!;
     ok !(exec {""} ()), 'empty exec PROGRAM LIST fails';
     ok $! == 2 || $! =~ qr/\bno\b.*\bfile\b/, 'errno = ENOENT'
-        or printf "# \$! eq %d, '%s'\n", $!, $!;
+        or diag sprintf "\$! eq %d, '%s'\n", $!, $!;
 }
 
 package CountRead {