From 3bbe894fd26114e6835c697008b61beeffd084bf Mon Sep 17 00:00:00 2001
From: Patrick Monnerat <patrick@monnerat.net>
Date: Tue, 5 Sep 2017 17:10:05 +0100
Subject: runtests.pl: support attribute "nonewline" in part verify/upload.

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

(limited to 'tests')

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");
-- 
cgit v1.2.1