runtests.pl: support attribute "nonewline" in part verify/upload.

1 files changed, 7 insertions, 0 deletions

diff --git a/tests/runtests.pl b/tests/runtests.pl
index 7d260afcf..e3cf2bff8 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -3755,6 +3755,13 @@ sub singletest {
 
     # if this section exists, we verify upload
     my @upload = getpart("verify", "upload");
+    if(@upload) {
+      my %hash = getpartattr("verify", "upload");
+      if($hash{'nonewline'}) {
+          # cut off the final newline from the final line of the upload data
+          chomp($upload[$#upload]);
+      }
+    }
 
     # if this section exists, it might be FTP server instructions:
     my @ftpservercmd = getpart("reply", "servercmd");