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

diff --git a/tests/runtests.pl b/tests/runtests.pl
index 7d260afcf7855383a7d63331058b6c07a7eca88b..e3cf2bff8f19265d612040c5f38476816bc1b0ad 100755 (executable)
--- 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");