From 4ced75b7cee64cdf797eaa24a76d29324029ed15 Mon Sep 17 00:00:00 2001
From: Dan Fandrich <dan@coneharvesters.com>
Date: Wed, 29 Mar 2023 14:15:16 -0700
Subject: [PATCH] runtests: show error message if file can't be written

---
 tests/runtests.pl | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/tests/runtests.pl b/tests/runtests.pl
index a727385a57..ce547ba190 100755
--- 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);
+            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";
             }
-            print $outfile $fileContent;
-            close($outfile);
         }
     }
     return ($why, 0);