tests/getpart: generate output URL encoded for better diffs

Closes #7083

diff --git a/tests/getpart.pm b/tests/getpart.pm
index 5700ca7a076481aa774188adcdc32e943400e0ac..348bdd44d64073639467b3c2854f982244e5f08d 100644 (file)
--- a/tests/getpart.pm
+++ b/tests/getpart.pm
@@ -5,7 +5,7 @@
 #                            | (__| |_| |  _ <| |___
 #                             \___|\___/|_| \_\_____|
 #
-# Copyright (C) 1998 - 2020, Daniel Stenberg, <daniel@haxx.se>, et al.
+# Copyright (C) 1998 - 2021, Daniel Stenberg, <daniel@haxx.se>, et al.
 #
 # This software is licensed as described in the file COPYING, which
 # you should have received as part of this distribution. The terms
@@ -313,6 +313,7 @@ sub showdiff {
         my $l = $_;
         $l =~ s/\r/[CR]/g;
         $l =~ s/\n/[LF]/g;
+        $l =~ s/([^\x20-\x7f])/sprintf "%%%02x", ord $1/eg;
         print TEMP $l;
         print TEMP "\n";
     }
@@ -323,6 +324,7 @@ sub showdiff {
         my $l = $_;
         $l =~ s/\r/[CR]/g;
         $l =~ s/\n/[LF]/g;
+        $l =~ s/([^\x20-\x7f])/sprintf "%%%02x", ord $1/eg;
         print TEMP $l;
         print TEMP "\n";
     }