From: Daniel Stenberg <daniel@haxx.se>
Date: Thu, 15 Aug 2024 22:19:00 +0000 (+0200)
Subject: test1707: output diff more for debugging differences in CI outputs
X-Git-Tag: curl-8_10_0~242
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=3932964793457078b4a2b194572ec9f1f8925b35;p=thirdparty%2Fcurl.git

test1707: output diff more for debugging differences in CI outputs
---

diff --git a/tests/test1707.pl b/tests/test1707.pl
index 65f9019efe..d9090d4f9b 100755
--- a/tests/test1707.pl
+++ b/tests/test1707.pl
@@ -112,8 +112,22 @@ else {
         $txtout[$i] =~ s/[\r\n]//g;
         if($curlout[$i] ne $txtout[$i]) {
             printf "Line %d\n", $i;
-            printf "-h   : %s\n", $curlout[$i];
-            printf "file : %s\n", $txtout[$i];
+            printf "-h   : %s (%d bytes)\n", $curlout[$i],
+                length($curlout[$i]);
+            printf "file : %s (%d bytes)\n", $txtout[$i],
+                length($txtout[$i]);
+
+            if(length($curlout[$i]) == length($txtout[$i])) {
+                my $l = length($curlout[$i]);
+                for my $c (0 .. $l) {
+                    my $o = substr($curlout[$i], $c, 1);
+                    my $t = substr($txtout[$i], $c, 1);
+                    if($o ne $t) {
+                        print "-h   col %d: %02x\n", $c, ord($o);
+                        print "file col %d: %02x\n", $c, ord($t);
+                    }
+                }
+            }
             $error++;
         }
     }