runtests: show error message if file can't be written

diff --git a/tests/runtests.pl b/tests/runtests.pl
index a727385a5707f59f0f367e4bf0a2f49d5d990ef9..ce547ba1907ce2c34dbf1f6b166b20c8301254df 100755 (executable)
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -3997,14 +3997,17 @@ sub singletest_prepare {
                     mkdir $d; # 0777
                 }
             }
-            open(my $outfile, ">", "$filename");
-            binmode $outfile; # for crapage systems, use binary
-            if($fileattr{'nonewline'}) {
-                # cut off the final newline
-                chomp($fileContent);
-            }
-            print $outfile $fileContent;
-            close($outfile);
+            if (open(my $outfile, ">", "$filename")) {
+                binmode $outfile; # for crapage systems, use binary
+                if($fileattr{'nonewline'}) {
+                    # cut off the final newline
+                    chomp($fileContent);
+                }
+                print $outfile $fileContent;
+                close($outfile);
+            } else {
+                logmsg "ERROR: cannot write $filename\n";
+            }
         }
     }
     return ($why, 0);