test1707: output diff more for debugging differences in CI outputs

diff --git a/tests/test1707.pl b/tests/test1707.pl
index 65f9019efe19039435d4cd9c49117d047be9aa91..d9090d4f9be8a463a02621fc115e2939525e61a1 100755 (executable)
--- 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++;
         }
     }